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GENE NG II - A PROGRAM FOR CALCULATING DESIGN AND OFF-DESIGN 
PERFORMANCE OF TWO- AND THREE-SPOOL TURBOFANS 
WITH AS MANY AS THREE NOZZLfS 
by Laurence H. Fishbach and Robert W. Koenig 
Lewis Research Center 

SUMMARY 

A digital computer program titled GENENG II is described. This program is a 
derivative of GENENG standing for GENe ralized ENGi ne. GENENG which is capable of 
calculating steady-state design and off -design performance of turbofan and turbojet en- 
gines was evolved from SMOTE (SiMulation Of Turbofan Engine) which was developed by 
the Turbine Engine Division of the Air Force Aero Propulsion Laboratory, Wright- 
Patterson Air Force Base, Ohio. 

GENENG II calculates design and off -design jet engine performance for existing or 
theoretical turbofan engines with two or three spools and with one, two, or three noz - 
zles. In addition, aft -fan engines can be calculated. Changes to the original SMOTE 
and GENENG are discussed. 

Included in the report are complete FORTRAN IV listings of the program with sam - 
pie results for nine basic turbofan engines that can be calculated without any pro- 
gramming changes: 

(1) Three -spool, three -stream engine 

(2) Two -spool, three -stream boosted -fan engine 

(3) Two-spool, three-stream, supercharged-compressor engine 

(4) Three-spool, two-stream engine 

(5) Two-spool, two-stream engine 

(6) Three-spool, three-stream, aft -fan engine 

(7) Two-spool, three-stream, aft -fan engine 

(8) Two-spool, two-stream, aft -fan engine 

(9) Three-spool, two-stream, aft -fan engine 

The first three of these engines are likely candidates for a STOL aircraft with inter- 
nally blown flaps. By examining the methods used to simulate these engines, the reader 
may simulate others. As examples, a boosted aft -fan engine with two streams would 
simulate a high -bypass -ratio engine where the core and tip portions of the fan have dif- 
ferent component performance maps; a boosted-fan, two-stream engine could be simu- 
lated (JT9D type); or supercharged-compressor, two-stream engines could be studied. 
The number of possibilities are too many to enumerate, being determined by the imag- 
ination of the user. 



INTRODUCTION 


For preliminary as well as in-depth studies it is often necessary to study a broad 
range of engines operating at both design and off -design conditions in order to find an 
efficient airframe/engine combination. The spectrum of flight conditions through which 
an engine must operate will strongly affect the optimum design parameters for that 
engine. 

The SMOTE code (SiMulation Of Turbofan Engines), discussed in references 1 and 
2, provided a computer program having off -design -point calculation capability for either 
existing engines or theoretical ones - a major advance. Theoretical engines are simu- 
lated by scaling component performance from existing engines to the design conditions 
of the theoretical engine. 

GENENG ( GENe ralized ENGi ne), a computer code derived from SMOTE and report- 
ed in a companion report to this one (ref. 3), greatly increased the versatility of the 
original code while retaining the ability to simulate theoretical engines. The most 
significant change was providing the capability of studying one- and two-spool turbojets 
as well as turbofans. 

Additional changes to SMOTE included generalization of afterburner performance 
maps, an automatic redesign of the fan and compressor pressure ratios for mixed-flow 
turbofans (one -stream engines) if the static pressures at the mix point do not match, 
duct combustor pressure losses, a new method of entering data into the program, and 
an automatic recall of previously loaded design-point data so that it is only necessary 
to change what is being varied when studying a series of design engines . 

This report describes GENENG II, a derivative program from GENENG. A need 
has arisen for the capability of calculating the performance of two- or three-spool turbo- 
fan engines with as many as three nozzles (or airstreams) . An example of this type of 
engine would be one in which a fan is used to compress all the air, of which some is ex- 
panded through a separate nozzle to produce thrust. The remaining air passes through 
a co,mpressor, after which some air is put into a wing duct and expelled over the wing 
flaps (an internally blown flap) . The remaining air passes through another compressor 

f 

into a combustor; is heated and expanded through three turbines, each of which drives 
one of the compressors; and is then expelled out the third (main) nozzle, producing 
more thrust. This engine type is under consideration for STOL aircraft; and until the 
development of GENENG n, off -design performance calculations were difficult to attain. 

GENENG II was developed to provide the capability to study this engine type. Once 
this capability had been achieved, it was realized that many other engine types could be 
simulated by building simple options into the code and modifying the input data to the 
program. As an example, the fan and first compressor in the engine just described 
could be physically attached and driven by one turbine (the so-called ’’boosted turbofan”), 
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or the fan could be put at the rear of the engine (an aft fan). Thus GENENG n became a 
very versatile program with many engine design options built in internally. These are 
described in the next section ENGINE TYPES. 

The GENENG n computer code is available from the authors upon request. This 
FORTRAN IV program can be used by computer centers having an IBM 7094 Model 2 
computer. With modifications, the program can be used on all computers that have a 
FORTRAN compiler. 


ENGINE TYPES 

All thermodynamic properties of air and gas are calculated by considering variable 
specific heats and no dissociation. The air and gas property tables of reference 4 were 
curve fit and are used herein. 


Type a - Three-Spool, Three-Steam Turbofan 


The basic engine, a three-spool, three-stream turbofan, of which all other engine 
types are treated as variations, is shown in figure 1. Free-stream conditions exist at 
station 1. The conditions at station 2 are determined by flight conditions and inlet re- 
covery. GENENG compressor maps work with corrected values of airflow. At the 
entrance to the fan, the corrected airflow WAp c is 


WA 


F,c 



V T 2/ T 518. 668 
P 2^ P SLS 


( 1 ) 


where Pg and Pg^g are in atmospheres and Pg^g equals t. 0. All symbols are de- 
fined in appendix C. Some symbols are formed as the combination of other symbols; 
thus WA is airflow, F is for fan, and c when following a component symbol means 
corrected. Station numbers are defined on the appropriate figure. 

All the fan air WA f is compressed by the fan giving rise to conditions at station 
22. The power required to do this is 

Fan power = WAp x (H 22 - H 2 ) ( 2 ) 


Some fan air may be lost to the cycle as fan bleed Blp, which is expressed as a fraction 
of the fan airflow 
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(3) 


B1 F =PC B1,F ><WA F 

The corrected airflow into the intermediate compressor is 

WA _ WAj^T 22 /T 518 668 

I,c " Pm / 1 - 0 

The remaining air goes through the fan duct, where some leakage from the core air may 
also enter (see eq. (16)). 


WA d = WA f - B1 f - WAj + B1 dxj 


( 5 ) 


This air', which may be heated by a duct burner to a temperature T 24’ undergoes a pres- 
sure drop 


P 25 = P 24 X 




DUCTJ 


( 6 ) 


The air would have been heated by the addition of fuel, which can be expressed as a fuel- 
air ratio so that 


WG 24 - WAjj X [l + (f/ a > 23 ] (7) 

The gas is then expanded through a nozzle (station 29) to produce thrust. The bypass 
ratio is defined by 


BYPASS = 


WA P 

WAj 


( 8 ) 


The air going into the intermediate compressor is compressed to the conditions at 
station 21. The power required is 

Intermediate -compressor power = WAj x (Hgj - I^) (9) 

The conditions at station 21 are the same as those at station 32, which is the entrance to 
the wing duct as the third streampath is called herein. The airflow entering this duct is 
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called Blp meaning intermediate bleed flow, and is expressed as a fraction PC B1 j 
of the total airflow at station 21. 


Blj = PC m jX WAj (10) 

The remainder of the air enters the core compressor 

WA C = WAj - Blj (11) 


and 


WA 


C, c 


WA C X V T 21 //T 518. 668 

P21A.0 


( 12 ) 


The air entering the wing duct experiences a pressure drop 


P 36 “ P 32 X 


:f). 


WING 


(13) 


and then passes through a nozzle (station 39) to produce additional thrust. The air 
continuing on through the core is compressed to conditions at station 3. The power re- 
quired is 


Core compressor power = WA^ x (Hg - H^) = WAg x (Hg - Hg^) (14) 

Some core bleed air Bl^ may be used for turbine cooling. Some of the air is put 
back into the cycle into each of the three turbines, and some is lost to the cycle as 
overboard bleed or leakage into the fan duct. 


B1 c = PC B1, C X WA 3 

(15) 

B1 DU = PC B1, DU X B1 C 

(16) 

B1 OB = PC Bl,OB X B1 C 

(17) 

B1 HP = PC B1, HP X B1 C 

(18) 
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( 19 ) 


IP" PC B1,IP* B1 C 
LP = PC B1, LP X B1 C 


( 20 ) 


Since B1 du + B1 QB + Bl Rp + Bl Ip + Bl Lp = Bl c , the sum of PC m DXJ , PC m>0B , 
PC B j jjp> PC B j j p > mid PC B j LP equal to 1. 

The remaining air is 


WA 4 = WA 3 - Bl c (21) 

and is heated to a turbine inlet temperature T 4 and goes through a combustor pressure 
drop (A P/ P) QQjyjp • The fuel required to do this is expressed as a fuel-air ratio (f/a) 4 
so that the gas entering the first turbine WG 4 can be expressed as 

WG 4 = WA 4 x [l + (f/a) 4 ] (22) 

This gas is then expanded through this high-pressure turbine to conditions at station 50. 
The enthalpy at station 50 is first calculated by making a power balance since this tur- 
bine drives the core compressor and supplies any work extracted (HPEXT). By using 
equation (14) 


WG 4 X (H 4 - H 50 ) = WAg x (H 3 - H 21 ) + HPEXT 


( 23 ) 


In addition, the physical speeds must match 

N HP, TURBINE = N COMP 


(24) 


If high -pressure -turbine bleed air Bl Rp is added back into the cycle at this point, 
Hg 0 must be readjusted 


H 50 " 


(bi hp x h 3 ) + wg 4 h 50 (bi hp x h 3 ) + wg 4 h 50 


WG 4 + B1 hp 


WG, 


50 


(25) 


Similarly, 


WG 50 X ^50- H 5)= WA I X ( H 21- H 22) 


(26) 
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H 5 = 


N IP, TURBINE " N INT COMP 


(bi ip x h 3 ) + wg 50 h 5 (bi ip x h 3 ) + wg 50 h 5 


WG 50 + B1 IP 


WGr 


H 55 = 


wg 5 x(h 5 -h 55 )=wax(h 22 -h 2 ) 


N LP, TURBINE " N FAN 


(bi lp x h 3 ) + wg 5 h 55 _ (bi lp x h 3 ) + wg 5 h 55 

WG C 


WG 5 + B1 lp 


(27) 

(28) 

(29) 

(30) 

(31) 


55 


The gas flow WG &5 then may be heated by an afterburner to a gas temperature T ? and 
may undergo a pressure drop. 

P 7 = P 6 

The gas flow would be increased by any fuel burned. 

WG 7 = WG 55 + WFA (33) 


'AP\ 
, P / 


AFTERBURNER 


(32) 


The gas is then expanded through the nozzle (station 9) to produce the remainder of the 
total engine thrust. 


Type b - Two-Spool, Three-Stream, Boosted-Fan Turbofan 

From figure 2 it is immediately apparent why the three-spool, three-stream engine 
can be modified to represent the other types presented herein. The only difference be- 
tween engine b and engine a is that the intermediate compressor is physically attached 
to the fan in terms of speed and the combination is driven by one turbine (the low- 
pressure turbine) . The thermodynamic calculation changes are that the speeds are 
attached. 


N INT COMP “ N FAN 


(34) 



The power of the low-pressure turbine is now 


WG 50 x < H 50 - h 55> ' wa F x < h 22 ‘ »2> * WA I x < H 21 ' H 22> 


(35) 


PC B 1 jp must be zero and H gg is readjusted by 

(bi lp x h 3 ) + wg 50 h 55 


H 55 = 


WG 50 + B1 LP 


(36) 


This type of engine is of interest because it might be created by adding a new 
boosted -fan - turbine combination to an existing core. If the third air stream is deleted 
(see engine e) and ductburner and afterburner are removed, engine b becomes a two- 
spool, two-stream turbofan of the type represented by the General Electric CF6 and 
Pratt & Whitney JT9D turbofan, both of which have booster stages on the fan. 


Type c - Two-Spool, Three-Stream Supercharged-Com pressor Turbofan 

Engine c is shown in figure 3. Here, the intermediate and core compressors have 
been physically attached. For programing reasons, the combination is driven by the 
intermediate-pressure turbine. The calculation procedure bypasses the routine which 
calculates higfc -pressure -turbine performance but transfers the turbine performance 
data from this routine into that of the intermediate-pressure turbine to represent the 
turbine performance. Since the intermediate -pressure turbine speed is set by the speed 
of the intermediate compressor which also sets the speed of the combination of the com- 
pressors, this procedure was necessary. 

N COMP = N INT comp ( 37 ) 

WG 50 X (H 50 ' H 5> = WA I * (H 21 " H 22> + WA C * < H 3 " H 21 ) + HPEXT ( 38 ) 
PC B i Hp must be zero and H g is readjusted by 

H . (Bl Ip XH 3 ) t WG 50 H 5 
5 WG 50 + B1 IP 
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Type d - Three-Spool, Two-Stream Turbofan 


Engine d, shown in figure 4, is presently in existence (Rolls Royce RB 211) and 
differs from the reference engine in that all the air entering the intermediate compressor 
also enters the inner compressor. For this reason, the only change necessary to run 
this engine is to set PCg^ j equal to zero. 

Type e - Two-Spool, Two-Stream Turbofan 

Engine e is the typical turbofan and is shown in figure 5. To simulate this engine, 
it is necessary to have the air go through the intermediate compressor at a pressure 
ratio of 1.0 and an efficiency of 1.0 and to bypass the intermediate -pressure -turbine 
calculations. A logical control (DUMMYSPOOL) has been built into the program to do 
this. At the same time, PC B j j must be set equal to zero. By using this option, 
GENENG II can be used to replace its original version GENENG (ref. 3) in calculating 
turbofan performance. It cannot, however do turbojet calculations (two-spool, one- 
stream or one-spool, one-stream engines). As mentioned earlier, boosted-fan, two- 
spool, two-stream engines can be calculated by setting PC B1 j equal to zero in engine b. 

Type f - Three-Spool, Three-Stream Aft-Fan Turbofan 

The three -spool, three -stream aft -fan engine is shown in figure 6. Thermody- 
namically, the only difference between this and the reference engine is that the inter- 
mediate compressor sees the same conditions at its entrance as does the fan (conditions 
at station 2; both inlets assumed to have the same performance). This is accomplished 
by setting a logical control variable AFTFAN to be true. The power of the intermediate- 
pressure turbine would be 

WG 50 x < H 50 - H 5> = WA I * ( H 21 - H 2> («> 

Each of the aft -fan engines has a counterpart in the front -fan engines, the only dif- 
ference being that the intermediate compressor (or in the case of engine h, a two-spool, 
two-stream aft -fan engine, the compressor) sees free-stream conditions. These en- 
gines and their counterparts are described in the following sections. 
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Type g - Two-Spool, Three-Stream Aft-Fan Turbofan 

Engine g, a counterpart of engine c (fig. 3), is shown in figure 7. The power 
balance would be 

wg 50 x < h 50 - h 5> = WA I x < h 32 - H 2> + WA C x < H 3 ' H 32> < 41 > 

Type h - Two-Spoo), Two-Stream Aft-Fan Turbofan 

Engine h, a counterpart of engine e (fig. 5), is shown in figure 8. The power bal- 
ance would be 

WG 50 x < H 50 - H 5> = WA C x < H 3 - h 2> <«> 

Type i -Three-Spool, Two-Stream Aft-Fan Turbofan 

Engine i, a counterpart of engine d (fig. 4), is shown in figure 9. The power balance 
would be 

WG 50 x < H 50 - H 5> - WA I x < h 21 - H 2> < 43 > 

Other Engines 

By using his imagination in conjunction with the engines illustrated, the reader can 
determine other engine types which can be simulated. An obvious one is a 
supercharged-compressor, two-stream turbofan which is a derivative of engine c, the 
only change necessary being setting PC B1 j = 0. In addition, all engines illustrated 
could be run as mixed -flow engines eliminating the fan duct nozzle (see ref. 3). 

An interesting engine more difficult to be simulated is a high -bypass -ratio turbofan 
(two streams), where the outer and inner portions of the fan are represented by different 
performance maps. As can be seen by the following sketches, this engine can be sim- 
ulated by a boosted aft-fan engine. When AFT FAN is true, the second spool sees free- 
stream conditions. When the fan and intermediate spool are attached, the physical ro- 
tational speeds of the aft fan (outer portion of fan) and the second spool (inner portion of 
fan) will be the same. Both are driven off the same turbine. 
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Outer J Inner 
portion 1 portion 

(a) 

The high -bypass -ratio turbofan (sketch a) can be simulated by a boosted aft -fan en- 
gine (sketch b). 




BALANCING TECHNIQUE 

An off -design engine cycle calculation requires satisfying various matching con- 
straints (rotational speeds, airflows, compressor and turbine work functions, and noz- 
zle flow functions) at each specified operating condition. GENENG n internally searches 
for compressor and turbine operating points that will satisfy the constraints. It does 
this by generating differential errors caused by small changes in the independent vari- 
ables. The program then uses a matrix that is loaded with the differential errors to 
solve for the zero -error condition. This procedure is known as the Newton -Raphson 
iteration technique. 

For a three -spool engine, a solution for a set of nine simultaneous linear equations 
is obtained; for other types, less equations are used. The nine independent variables 
selected are 

ZF Ratio of pressure ratios of fan compressor along a speed line, 

ZF _ (Pressure ratio along speed line) - (Low pressure ratio on speed line) 

(High pressure ratio on speed line) - (Low pressure ratio on speed line) 

PCNF or T4 Percent fan speed or turbine inlet temperature 
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ZI Ratio of pressure ratios of intermediate compressor along a speed line 

(calculated the same as ZF) 

PCNT Percent intermediate compressor speed 

ZC Ratio of pressure ratios of inner compressor along a speed line (calcu- 

lated same as ZF) 


PCNC or T4 
TFFHP 
TFFIP 
TFFLP 


Percent inner compressor speed or turbine inlet temperature 
High -pressure -turbine flow function, WG^j/T^/P^ 
Intermediate -pressure -turbine flow function, WG^q ^T^q/P^q 
L ow -pressure -turbine flow function, WG^^/T^/P^ 


The program initially selects new (perturbed) values for the variables, based on the 
design values. It is then possible to proceed through the entire engine cycle calculations, 
where up to nine errors are generated. The initial values of the nine (or less) variables 
and nine (or less) errors are base values. 

As per reference 1, the partial differential equations for E = f(V) are 



(44) 


for i going from 1 to l max where j max is 6, 7, or 9 depending on the engine type 
being run; and where E is an error, V is a variable, and 9E.j is the change in E. 
caused by a change in V^. 

The assumption of a small change in the variables results in the following approxi- 
mations (B refers to a base value) : 


dE — E — EB 

(45) 

dV = V - VB 

(46) 

0E _ AE 

(47) 


av av 


With these approximations and the knowledge that E should equal zero for the balanced 
engine, the set of partial differential equations (eq. (44)) reduces to 
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( 48 ) 



AE-. 

il dV. = -EB. 

AY. 3 1 

J 


for i going from 1 to j max - 

Thus the calculations made with the perturbed variables are used to compute AE/ 
AV, and equation (48) is solved for dV- The variables Y are then given new values 
from 

V j = V j B + dV j ( 49 ) 

If the engine cycle calculations were linear functions, the engine would balance 
(errors within some allowable limit) with the new values of the variables. However, this 
is not the case, and it is usually necessary to repeat the process of changing each vari- 
able by a small amount for each pass. A change in each error because of the small 
change in the variable is calculated for each pass, where the new values become the 
base values. This process occurs several times before a balance is obtained. 

A subroutine (MATRIX) to determine the solution of a matrix is used to solve the 
set of differential equations. After each pass through the engine, a matrix array is 
loaded with the appropriate values; after a number of passes equal to 1 plus the number 
of independent variables (base value plus up to nine independent variables) , the matrix 
subroutine is used to solve the matrix. The solution of the matrix (E within some allow- 
able limit) yields the correct values of the independent variables and satisfies all the 
component matching constraints. 

The most-often-used independent variables and the differential errors for each of 
the nine examples of engine types capable of being run on GENENG n are listed in 
table I. 


INPUTS FOR ENGINE PERFORMANCE CALCULATIONS 

Two forms of data are supplied to GENENG n. Some data, such as all the constants 
and component map data, are in the form of BLOCK DATA subprograms. The varying 
data are supplied at execution time by the use of input data cards. 

The FORTRAN listings of GENENG n are presented in appendix A. The function and 
description of the subroutines follow in the next section. 
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GENENG II Subroutine Functions and Descriptions 


A flow chart of the computer program with the subroutines is shown in figure 10. 

The functions of the subroutines are listed here and the purpose of each is described. 

GEN2 Dummy main program to initiate the calculations and cause the input of the 
controlled output variables. Because of the looping between subroutines, 
control is never transferred back to this routine. 

ENGBAL Main subroutine. Controls all engine balancing loops; checks tolerances 
and number of loops and loads matrix; calls INPUT. 

GUESS Determines initial values of independent variables (see table I) at each point. 

MATRIX Solves error matrix. 

PUTIN Calls input subroutine package. Controls loop on static pressures for mixed- 
flow turbofan. 

ZERO Zeros nearly all of common and certain controls. 

OOINLT Determines ram recovery and performs inlet calculations. 

ATMOS 1962 U. S. Standard Atmosphere table. 

RAM Calculates ram recovery defined by MIL-E-5008B specifications. 

RAM2 Calculates special cases of input ram recovery as a function of flight Mach 

number. 

OOFAN Uses BLOCK DATA to perform fan calculations. 

COINTC Uses BLOCK DATA to perform intermediate-compressor calculations. 

INTDUM Makes intermediate compressor not change air conditions for engines e and 
h. 

COCOMP Uses BLOCK DATA to perform inner -compressor calculations. 

WDUCT Performs third-stream (wing) duct calculations (not used in two-stream en- 
gines) . 

COCOMB Uses BLOCK DATA to perform combustor calculations. May use either T^ 
or WFB as the main parameter. 

COHPTB Uses BLOCK DATA to perform inner -turbine calculations (not used in en- 
gines c and g) . 

COIPTB Uses BLOCK DATA to perform intermediate -turbine calculations (not used in 
engines b, e, andh). 

COLPTB Uses BLOCK DATA to perform outer -turbine calculations. 
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OODUCT 

COMIX 


COAFBN 

FRTOSD 

FASTBK 

COMNOZ 

ERROR 


SYG 


PERF 

OUTPUT 

CONOUT 
THCOMP 
PRO COM 

SEARCH 

MAPBAC 


Performs duct and duct -burning calculations for turbofans. May use either 
T24 or WFD as main parameters. 

Performs gas -mixing calculations if in mixed-flow mode. At design points 
it calculates areas either from an input static pressure I® 5 5 or from an input 
Mach number AM55 if PS55 = 0. At off -design points it calculates static 
pressures and Mach numbers from the design areas. Calculates ERR (5). 
Rescales pressure ratios for mixed-flow turbofans to match duct and core 
static pressures just prior to mixing. COMIX also calculates afterburner 
entrance area A6 as a function of afterburner entrance Mach number AM6 . 

Performs afterburning calculations. May use either T7 or WFA as the 
main parameters. 

Dummy routine to transfer values from common FRONT to common SIDE. 
Dummy routine to transfer values from common SIDE to common BACK. 
Controls the main nozzle. 

Controls all printouts if an error occurs. Prints names of subroutine where 
error occurred and also prints the values of all variables in the main com- 
mons. 

Controls printing from UNIT08. Throughout the program and particularly 
in ENGBAL, certain messages, variables, and matrix values are written 
on UNIT08 as an aid in determining why an error occurred or why a point 
did not balance. These values are printed out if subroutine ERROR is 
called and IDUMP is greater than zero, or after a good point if IDUMP = 2. 

Calculates performance after the engine is balanced. 

Prints output except for controlled output. Prints the main commons after 
the design point. 

Controls and prints the controlled output variables. 

Performs isentropic calculations for compressors. 

Calculates thermodynamic gas properties for either air or a fuel -air mix- 
ture based on JP-4 using curve fits of the tables of reference 4. 

General table lookup and interpolation routine to obtain data from the BLOCK 
DATA subroutines. 

Used when calculations result in values not on the turbine maps. Changes 
the map value and an independent variable (PCNF, PCNC, or T4) in an 
attempt to rectify the situation. 
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CONVRG 

CONDIV 

THTURB 

THERMO 

AFQUIR 

PARABO 

OVELAY 

BLKFAN 

BLKINT 

BLKCMP 

CMBDAT 

HPTDAT 

IPTDAT 

LPTDAT 

ETAAB 


INPUT 


Performs nozzle calculations for a convergent nozzle. 

Performs nozzle calculations for a convergent -divergent (C-D) nozzle. 
Performs isentropic calculations for turbines. 

Provides thermodynamic conditions using PROCOM. 

General quadratic interpolation routine. 

Parabolic curve -fit routine. 

DUMMY routine to restore working part of program to core when using 
overlay. 

Performance data for fan map (BLOCK DATA) . 

Performance data for intermediate -compressor map (BLOCK DATA). 
Performance data for inner -compressor map (BLOCK DATA). 

BLOCK DATA for combustor. 

Performance data for inner -turbine map (BLOCK DATA). 

Performance data for intermediate -turbine map (BLOCK DATA). 

Performance data for outer -turbine map (BLOCK DATA). 

Generalized afterburner performance BLOCK DATA as a function of fuel- 
air ratio with correction factors for off -design afterburner entrance pres- 
sure and Mach number. 

Package of Huff input subroutines. (The Huff Input Routine is a very 
versatile input mechanism further detailed in appendix B.) 


Entering the Data 

The Huff Input Routine, used to enter input data into the program at execution time, 
is discussed in appendix B. Appendix C presents the individual symbols for component 
names, station numbers, etc. , from which compound names such as WAFCDS (WA + F + 
C + DS) are formed. Table H and appendix A present the names of the variables, the 
values of which are supplied on data cards. 

Choice of component maps - scaling laws . - Many engines that are studied using 
GENENG n are theoretical. Therefore, actual component maps for these engines will 
be nonexistent. The program, however, does require component maps in order to do 
off-design-point calculations. To alleviate this problem GENENG H uses scaling laws 
to change data from one component map into a new component map. Hopefully, a compo- 
nent map can be found which could be expected to perform in a similar manner to the 
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actual map for the engine being studied. In fact, most maps that the authors have ob- 
tained are identified as to the range of pressure ratio, airflow, etc. , over which they 
are valid. Thus, a high -bypass -ratio fan map such as that from a CF6 could be used to 
simulate other high -bypass -ratio fan maps, etc. 

The scaling equations used for the compressor maps are 


PR = 


PR design ~ 1 

PR - 1 

map, design 


< PR map -D + 1 


WA. . 

W A = design — x WA 


^ A map, design 


map 


ETA 


ETA = 


design 


.x 


RrpA map, design 


ETA m 


ap 


In the output are printed the correction factors used in scaling the maps. The 
closer these values are to 1. 0, the more reasonable are the simulated maps of the en- 
gine. Conversely, however, not being close to 1.0 does not necessarily mean that the 
simulation is poor since many maps have been shown to be typical over quite large 
ranges in the variables. 

BLOCK DATA input . - The three compressor performance maps are entered into 
the code as the BLOCK DATA subprograms BLKFAN, BLKINT, and BLKCMP. The 
subprograms supplied by the authors with the code and shown in appendix A are not to be 
taken as realistic maps. These maps are of an illustrative nature and are the ones used 
to run the sample calculations. 

Using subprogram BLKFAN as an example (the first nine cards of which are printed 
here) and referring to a typical compressor map (fig. 11), the data are programmed as 
follows: 


SIBFTC BLKFAN DECK 

C THIS IS A GENERALIZED FAN MAP FDR UNREALISTIC SUPERSONIC ENGINE 1 

BLOCK DATA 2 

COMMON / FAN/CN( 15) , PR ( 15, 1 5) , MAC ( 15, 1 5 ) , ETA (15 *15) ,N,NPU5I 3 

DATA N,NP/10,6,3*7,5*10,8,5*0/ 

DATA CN/0. 3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9,1. 0,1. 1,1. 2, 5*0./ 5 

DATA (PRC 1 , J) * MAC ( 1,J),ETA( 2,J),J=1, &>/ b 

1 1.03000, 243.600, 0.75592, 1.01200, 229.800, 0.76120, 7 

2 1.02800, 199.800, 0.766A8, 1.03840, 166.800, 0.75592, 8 

3 1. 0^+80, 133.200, 0.72512, 1.0A800, 86.400, 0.64152/ 9 


Card 1 reminds the reader that these maps are fictitious. Card 2 identifies program as 
BLOCK DATA. Card 3 identifies common block FAN into which data are to be stored 
and dimensions the program variable. Card 4 indicates that there are 10 speed lines 


17 



N and the number of points NP on each line (six on the lowest speed, seven on the next 
three lines, etc.). Card 5 assigns the value of speed to each of the 10 lines (low to high). 
Cards 6 to 9 along the speed line CN=0. 3 sets the pressure ratio PR, corrected airflow 
WAC, and efficiency ETA in sets of three going from low pressure (PR = 1. 0) to the 
surge line (PR = 1.048). Note there are six sets of three values (NP(1) = 8). The rest 
of the cards (appendix A) set the values for each speed line. 

The combustor map is also a BLOCK DATA subprogram (CMBDT). It is a plot of 
temperature rise across the combustor against efficiency for constant input pressure. 
Entry to the map is through temperature rise and input pressure with efficiency being 
output. The cards in the subprogram CMBDT are reproduced here; a typical combustor 
map shown in figure 12. 


$IBFTC CMBDT DECK 

BLOCK DATA 1 

COMMON / COMB/PSm5),DELT(15,151,ETA(15,15),N,NP<15> 2 

DATA 9,NP / 15,15*15 / 3 

DATA PSI/4.9116,9.8232.14. 735, 19.645, 24.558,29. 470,34.381, 4 

139. 293.44.207.73.674.100. . 200.. 300.. 400.. 500./ 5 

DATA 3ELT/15*200., 15*300. ,15*400., 15*500. , 15*600., 15*700. ,15*800., 6 

115*900., 15*1000., 15*1 100. ,15*1200., 15*1300., 15*1400., 15*1500., 7 

215*1600./ B 

DATA ETA/ 9 

1.600.. 726. .777. .806. .826.. 843. .855. .865. 7*. 870, 10 

2. 758.. 825.. 858.. 875. .888.. 898. .906.. 912.. 914. 6*. 915, 11 

3. 868.. 393.. 911.. 925.. 935. .942.. 947.. 951. 7*. 953, 12 

4. 925.. 936.. 946.. 955, .963,. 969,. 974,. 977, .978, 6*. 979, 13 

5. 960.. 966.. 972.. 977. . 982 .. 985. .990. . 992. . 993.6*. 995, 14 

6. 988. . 991. .992. .994, . 995 .. 997, .998, 8* . 999, 15 

78*1. 00, 7*. 999, 120*1. 00/ 15 

END 17 


Card 1 identifies the subprogram as BLOCK DATA. Card 2 identifies the common block 
COMB into which data are to be stored and dimensions each variable. Card 3 indicates 
that there are 15 lines of constant PSI (P3) by the value of N, and that there are 15 val- 
ues of DELT (DT) and ETA(ETAB) along each line of constant PSI (P3) . Cards 4 and 5 
assign values to each of the P3 lines from low to high pressure. Cards 6 to 8 assign 
values of AT to each of the P3 lines, starting at low AT. The lowest value of AT on 
each of the P3 lines is given starting with the lowest value of AT on the lowest value 
of P3. Next comes the second lowest value of AT on each P3, etc. Again, this map is 
unrealistic, being used for illustrative purposes only. Cards 9 to 16 assign the value of 
tj-q in a one-to-one correspondence with the AT values just assigned. The order is 
the same. 

Also entered as BLOCK DATA subprograms are the turbine maps (HPTDAT, 
IPTDAT , and LPTDAT). To illustrate the entering of turbine data, LPTDAT will be 
used. A typical turbine map is shown in figure 13; the data are programmed as follows: 
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*IBFTC LPTDAT DECK 

BLOCK DAT A 1 
COMMON) / LTURB/TFFC15),CN(15»15),DH(15»15),ETAU5»15)»N»NP(15> 2 
DATA Y.NP/U, 9*15, 12, 9,4*0/ 3 


DATA TFF / 

88.470, 

102.795, 

116.835, 

129.330, 

141.045, 

4 

1 

145.725* 

150,000, 

153.345, 

156.405, 

159.780, 

163. 170 , 4®0. / 

5 

DATA ( CN( 1 

, J ) * DHC 1, 

J ) , ET A ( 1, 

J ) » J-l » 15 

)/ 


6 

1 

0.3582, 

0.0018, 

0.7120, 

0.5336, 

0.0026, 

0.7300, 

7 

2 

0.7365, 

0.0035, 

0.7472, 

0.9754, 

0.0044, 

0,7300, 

3 

3 

1.2146, 

0.0051, 

0.7140, 

1.4173, 

0.0056, 

0.7000, 

9 

4 

1.6201, 

0.0059, 

0.6850, 

1.7673, 

0.0061, 

0,6730, 

10 

5 

2.3247, 

0.0062, 

0.6452, 

2.2827, 

0.0061, 

0.6200, 

11 

6 

2.4665, 

0.0057, 

0.6000, 

2.6137, 

0.0053, 

0.5750, 

12 

7 

2.3166, 

0.0044, 

0.5310, 

2.9456, 

0.0035, 

0.5000, 

13 

8 

3.3138, 

0.0001, 

0.3850/ 
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Card 1 identifies subprogram as BLOCK DATA. Card 2 identifies common block into 
which data are to be loaded and dimensions the program variables. Card 3 indicates the 
number of constant turbine flow function lines TFF as 11 (N) and the number of points on 
each line from low to high TFF. Cards 4 and 5 set values of TFF from low to high. 
Cards 6 to 14 set values of corrected speed CN, work function DH, and efficiency ETA 
along TFF(l) starting from low CN (0. 3682) and ending at high CN (3. 3138). The rest 
of the cards set the values along higher TFF lines. 

In many cases, turbine maps for high-performance engines operate at a choked 
condition (constant TFF). Thus, a turbine map to be represented could possibly have no 
lines representing constant TFF for a significant portion of the map. For complete 
map representation, lines of constant TFF may be estimated on the map up to the limit 
loading line by inputing slight changes for the values of TFF (e. g. , one line for TFF 
is 62. 105, the next may be input as equal to 62. 108). This will eliminate computational 
difficulties which would arise if constant values for TFF lines were input. 

Generalized afterburner performance has been programmed into subroutine 
COAFBN. The afterburner performance map included in the program is shown in a 
generalized form in figure 14(a). The performance map shows afterburner combustion 
efficiency as a function of fuel -air ratio. The values of the afterburner combustion 
efficiency correction factors AETAA during off-design operation are shown against 
afterburner entrance Mach number (fig. 14(b)) and afterburner entrance pressure 
(fig. 14(c)). Other correction factors or performance maps may be added as desired. 
The afterburner efficiency, fuel-air ratio, inlet total pressure, and Mach number are 
generalized. 

A specific afterburner performance map is generalized by dividing the specific off- 
design value by the design value as shown below. The symbols shown are the symbols 
used in the ABETTA subroutine where the generalized and specific values are input. 

The generalized afterburner values are obtained as follows: 


Efficiency (ETABRT) = -11^- 

ETAADS 
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Fuel -air ratio (FART) = F ^ -- 

FARTDS 


Entrance total pressure (P6T) = 

P6DS 

Entrance Mach number (EM6T) = - 

AM6DS 

However, the correction factor for efficiency AETAA is not a generalized value. Also 
input in ABETTA are 

(1) The change in efficiency as a function of EM6T is input as DELM6 (which is 
really AETAA = f(AM6)). 

(2) The change in efficiency as a function of P6T is DELP6 (which is really AETTA= 
f(P6)). 

At execution time for the design point, afterburner combustion efficiency ETAADS, 
exit total temperature T7DS, and entrance Mach number AM6DS design values are input. 
Then design fuel -air ratio and entrance pressure ratio are calculated from the input 
values and the other design engine characteristics. 

To achieve a reasonable accuracy in cycle calculations when using a generalized 
component map, the usage of the map should be limited within a certain range of the 
original design values and configuration changes. Therefore if, for example, an 
afterburner has a design task that differs significantly from an example used, a new 
performance map should be used in order to simulate the component more accurately. 

GENENG n normally uses a single-point input for the nozzle velocity coefficients 
(CVMNOZ, CVDWNG, and CVDNOZ) when calculating engine performance. When de- 
sired, however, a map of nozzle velocity or thrust coefficients can be readily in- 
corporated. 

Inputs required at execution time. - Basically what must be supplied are a list of the 
desired output variables, design values of any component existing in the engine (com- 
pressors, combustion, turbines, etc.), and engine operational controls. The variables 
that are to be output are selected by the first section of data cards. Any variable that 
is in one of the main commons (DESIGN, FRONT, SIDE, BACK, SPOOL2, or DUMMYS) 
may be selected for output by punching, in columns 1 to 6, the name of the variable as 
it appears in the common. Up to 150 variables (25 lines of six variables) may be chosen 
for a particular run. During the output phase, the name of the variable is printed out, 
with its value printed immediately below the name. 

Another feature of the controlled output is the ability to change the name of a vari- 
able to be output; for example, it may be desired to change a station designation to one 
more common to a particular programer. In this case, the variable name would be 
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punched in columns 1 to 6 as described; but, in addition, the desired name would be 
punched in columns 13 to 18. Special symbols such as / may be used in the new name. 
The last card of the controlled output must be a card with ’’THEEND” punched in 
columns 1 to 6 . 

Table II summarizes the design inputs for the nine basic engines shown in this re- 
port. 

The following control variables should always be supplied at the design point. The 
value used is independent on how the user wants the engine to operate. The symbols 
and their purpose are listed in the subroutine PUTIN but are shown here for the reader’s 
convenience. The superscripts (1) to (4) on the symbols have the following meanings: 
(1) means ’’automatically returned to zero after each point is calculated, must be re- 
input if option is again desired”; (2) means ’’option can be used for design or off- 
design, ” whereas the other two MODE’S can be used only at off -design; (3) means 
’’these input values remain as input unless changed by a new input value”; (4) means 
”a setup case must be run where all the components are first matched before these ^0 
options are used; then the identical case may be repeated exercising these options. ” 


IDES = 1^ 

( 2 )mode = 

MODE = 1^ 
(^MODE = 2^ 
MODE = 3^ 
INIT = 0< 3 > 
INIT = 1^ 
IDUMP = 0< 3 > 
IDUMP = 1^ 
IDUMP = 2^ 
IAMTP = 0< 3 > 
IAMTP = 1^ 
IAMTP = 2^ 


For calculating the design point. 

Specify T4. 

Specify PCNC. 

Specify WFB. 

Specify PCNF. 

Initializes point. 

Will not initialize point. 

No looping write -outs. 

Will dump looping write -outs if error occurs. 

Will dump looping write -outs after every point. 

Will use AM and military -specification ETAR. 

Will use input AM and input ETAR. 

Will use input T2 as T1 = T1 + T2 and standard PI. (T2 value needs 
to be input at every point or an error will occur whenever used. ) 
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IAMTP = 3^ Will use input P2 and standard Tl. 

IAMTP = 4^ Will use input T2 and input P2. 

IAMTP = 5^ 3 ) Will use specific schedule of ETAR located in subroutine RAMTWO. 
IGASMX = - l^ 3 ) Separate flow, input A6. 

IGASMX = O^ 3 ) Separate flow, A6 = A55. (This control was used on all basic cycles 
in this report. ) 

IGASMX = 1^ Will mix fan duct and main streams, A6 = A25 + A55. 

IGASMX = 2^ Will mix fan duct and main streams, input A6. 

IDBURN = 1^ For duct burning (fan stream only), input T24. ^ 

IDBURN = 2^ For duct burning (fan stream only), input WFD. ^ 

IAFTBN = 1^ For afterburning (main stream or mixed stream of fan and main 
stream), input T7. ' ' 

IAFTBN = 2^ For afterburning (main stream or mixed stream of fan and main 
stream), input WFA. ^ 

IDCD = l/ 3 ) Fan duct nozzle will be convergent -divergent. 

IMCD = 1^ Main nozzle will be convergent -divergent. 

NOZFLT = 1^ For floating main nozzle exit area. ^ 

NOZFLT = 2^ For floating fan duct nozzle exit area. ^ 

NOZFLT = 3^ For floating fan duct and main nozzle exit area. ^ 

ITRYS = N Number of passes through engine before quitting. 

TOLALL = X Tolerance which the errors must satisfy before engine is matched. 

The following are other input variables for which some value depending on the en- 
gine design should be input at the discretion of the user: 

DELFG, DELFN, DELSFC Normally input as 1. 0 unless a correction is desired. 
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A6, AM55, AM23, AM6 
HPEXT, AM, ALTP, 
CVMNOZ , CVDNOZ, 
CVDWNG 

PCBLC, PCBLDU, 
PCBLOB, PCBLF 

PCBLHP, PCBLIP, 
PCBLLP 


See appendix C , Input Symbols. 


Values for bleed out of cycle; decimal equivalent of per- 
cent compressor flow. 

Value of total bleed returned to turbines; fractional 
equivalent of flow. The sum of these variables plus 
PCBLDU and PCBLOB should equal 1. 


Inputs required for additional options to basic cycles . - To run duct -burning 
(available only in fan stream duct) cases load ETAD, T24 or WFBDS, and DPDUDS. To 
run afterburning (mixed-flow fan or unmixed fan - available for core and fan stream if 
mixed, or for core stream if unmixed) cases load T7DS or WAFDS, ETAADS, and 
DPAFDS. Afterburner operation is the same as in reference 2 with the exception of a 
generalized afterburner performance map addition. For changing the generalized map 
to a specific map for a specific engine design, the preceding design values are needed 
at the design point. 

Means of specifying mode of engine operation . - Shown in the section SAMPLE 
CALCULATIONS (pp. 26 to 53) are the methods of specifying off -design operation points. 
The most common one and the one used exclusively herein is to select a Mach number, 
an altitude, and a turbine inlet temperature other than design values. There are, how- 
ever, several other possibilities which the user may employ. For example, changing 
the following controls: 


MODE = 0 
MODE = 1 
MODE = 2 
MODE = 3 


Specify a new turbine inlet temperature T4. 
Specify a compressor rotational speed PCNC. 
Specify a fuel flow rate WFB. 

Specify a fan rotational speed PCNF. 


If the engine has all its nozzles fixed, then an input such as turbine inlet tempera- 
ture, fuel flow, or speed will set the thrust level. But other means of changing engine 
operation can be accomplished by varying such nozzle throat areas as 

A8 Main nozzle throat area 

A38 Wing nozzle throat area 

A28 Fan nozzle throat area 


For example, an off -design condition may exist where, in an attempt to satisfy con- 
tinuity of mass flow (one of the component matching requirements), the fan operating 
point may lie outside the limits of the data that were input for the component map. A 
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fan nozzle throat area change could be used to return the fan operating condition on the 
map such that a match would occur. This would indicate a possibility exists that a 
variable fan nozzle would be required on this engine for operation at the desired condi- 
tion. The area is changed by inputing (example; A28 = 1. 2*A28). Since the design 
areas are not known prior to running the design point, the Huff Input Routine provides 
the versatility in which A28 is increased by a factor of 1. 2 as was shown. It should be 
noted that any area remains changed until it is recalculated by a new design case or 
altered by a new input. The preceding example and statements would apply if changes 
were made instead to A8 or A38. 

If the engine uses thrust augmentation by either duct burning or afterburning, the 
affected throat area (A28 or A8) will adjust to account for the temperature increase 
during afterburning. The area adjustment will be such that sonic conditions will exist 
at the affected throat. The component cycle match point is not affected. The area will 
then revert to the original design of modified A28 or A8 when the next case is run without 
afterburning. 

The nozzle exit area (A9 or A29) may be fully expanded (if A28 or A8 are sonic) by 
using the control variables NOZFLT = 1, 2, or 3 for the nonafterburning cases, or it is 
done automatically for the afterburning cases when the control variables of IAFTBN or 
IDBURN are used. The significance of these values was explained in the previous section. 


Use of Overlay - The Huff Input Routine Subroutine Package 

The use of the Huff Input Routine (appendix B) may, as in the case of The Lewis 
Research Center's 7094, require the use of overlay. Because of the flow of the program, 
the rules of overlay are violated in that the system will detect that it is possible to call 
a link which will override the link that called it. The link that is called is the Input 
Subroutine Package. The authors, however, have provided that as soon as the input is 
read, the original link is restored so that the program will execute correctly. The 
computer system might have to be told that the rules of overlay are being violated but to 
proceed anyway. 

In addition, the use of overlay increases the execution time of the program. The 
sample cases being run herein take about 4 seconds per case without overlay and 8 sec- 
onds with overlay. 

If the user feels that the aforementioned difficulties are not worth the flexibility of 
the Huff Input Routine, he may restore the program to the original form, in which 
NAMELIST was used. The authors will supply directions for this if so desired. 

The suggested links when using overlay are as follows : 
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SIBLDR 
SIBLDR 
$ I BLOR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLOR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 
SIBLDR 


GEN2 

ENGBOL 

GU6SSS 

MATRIX 

PUT 1M 

ZERO 

COINLT 

ATMOS 

RAMS 

RAMTWO 

CO FAN 

CO I NT C 

INTDUM 

COCOMP 

WDUCT 

COCOMB 

COHPTB 

COIPTB 

COLPTB 

CODUCT 

PUTOUT 

CONOUT 

THCOMP 

PROCDM 

SURCH 

MAPBAK 

CO.NVRG 

CONDIV 

THTRB 

THERMO 

AFOUER 

PARABO 

BLKFAN 


-\ 


Vlink 0 


BLKINT 

BLCCMP 

CMRDT 

HPTDAT 

IPTDAT 

LPTDAT 

ABETTA 

BLOCK 

ICHAR4- J 


SORIGIN 
SIBLDR OVELAY 
SIBLDR COMIX 
SIBLDR COAFBN 
SIBLDR FRTOSD 
SIBLDR FASTBC 
SIBLDR COMNOZ 
SIBLDR ERROR 
SIBLDR SYGS 
SIBLDR PERFOR 
SORIGIN 
SIBLDR IARITI 
SIBLDR ICNVTI 
SI8LDR IERORI 
S IBLDR I LOOK I 
SIBLDR INAMEI 
SIBLDR INAMEN 
SIBLDR INMBRI 
SIBLDR INPUT 
SIBLDR ITABLI 
SIBLDR ISUBI 
SIBLDR IXQTI 
SIBLDR LOCKX 
SIBLOR DEBUGX 
SIBLDR STACKP 
SIBLDR IFLD 


HUFF 1 


>LINK 1 


HUFF ^ 


VLINK 2 


J 
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SAMPLE CALCULATIONS 


Examples of nine basic engines capable of being run without changes to the computer 
code are shown in this section. 


Type a - Three-Spool, Three-Stream Turbofan 

The first example engine is engine a, the three-spool, three-stream turbofan en- 
gine. The first page output from the program is reproduced at the end of this main 
section. What is shown are the card images of the input cards, which is one of the ad- 
vantages of using the Huff Input Routine (HXR); they were printed under the control of that 
routine. 

The card numbers have been added by the authors and appear to the right on the 
output sheets. Card 1 ($D(1)) is the identification card for the forthcoming block of 
data. The (1) agrees with the third argument of the CALL INPUT (5, 6, 1, WORD, 

IT ABLE) statements in subroutine PUTIN. The 41 (punched as :1) causes the carriage 
control to start a new page. Card 2 starts the TABLE relating the location of each of 
the named variables to the location of the variable ’WORD" in common block ALL. 
These names have been mentioned in the section Inputs required at execution time and 
are listed alphabetically in appendix C. The first group of variables have been tagged 
with the label INTEGER, denoting their mode. Cards 3 to 14 complete the table with 
the REAL and LOGICAL variables. Cards 15 to 17 have been found to be useful in that 
they provide an easy method for designing an engine for other than a standard day. 

Since GENENG n uses corrected airflows as design-point inputs, the actual airflow into 
the fan must be multiplied by y/d (= 1 for standard day) . The y/d for other than a 
standard day has been predetermined for the user (TROPICAL DAY = 

\/(518.69 + 31)/518. 69, etc. ) and using the HXR, these factors can be used to multiply 
the desired airflows. 

Cards 18 to 20 set the design point as a "normal" engine at sea-level-static condi- 
tions. Card 21, which has been made to stand out by the use of 40, emphasizes the 
logical control variables which set the engine being run, in this case a three-spool, 
three -stream turbofan (engine a, fig. 1). Cards 22 to 24 describe the engine to be run 
and illustrate the use of the HIR to identify what is being done. 

In table II are listed the required inputs to run each of the sample engines. Card 25 
sets the fan design parameters and illustrates both tropical day and the HIR performing 
mathematical operations. In addition, the pressure coming out of the second spool was 
picked (2. 2) and thus the pressure ratio of the intermediate compressor determined 
from this value and the pressure already achieved by the fan (1. 4). 
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Cards 26 to 28 remind the user that the program requires corrected airflows and 
that the HIR is used to correct the airflow going into the intermediate compressor on 
card 29 . Cards 30 to 36 complete the input data for the design case. The input values 
of turbine design data correspond to the design point on the turbine maps. The com- 
pressor data are the actual values for the components, and the design points on the 
compressor maps are specified by the percent corrected speeds (PCNFDS, PCNIDS, 
and PCNCDS) and the values of Z (ZFDS, ZIDS, and ZCDS). Card 34 sets the design 
day as being a tropical day (recall cards 25 and 29) . Execution commences since the 
next card is a $D(1), indicating a new block of data. (This card is on page 34. ) 

The first group of output shows the scaling factors being used on the component 
maps . For the three compressors these are defined by 


PR_CF - 1 + PR - r '* S " 1 

(50) 

PR* - 1 

ETA CF - ETAJ ? S 

(51) 

ETA 

WA_CF - WA -CDS 

(52) 

WAC* 



where the * values are those defined on the component maps by PCN_J)S and Z_DS . 
Recall that the closer these and the turbine correction factors are to 1.0, the better the 
performance map data which were input to the program simulates the engine being 
studied. Even if these values are not close to 1.0, the simulation may still be quite 
accurate if the maps used were identified as being applicable over a range of design- 
point specification within which the user’s design point falls. 

The Mach number, the area of the throat, and the exit area of the wing duct are 
printed next, followed by the combustor design corrected airflow and combustor cor- 
rection factors. For the combustor 

ETABCF = j'T-ffi.Qg- (53) 

1.0 

and DTCOCF always equals 1 since the combustor'- value of DTCODS is calculated in- 
ternally at the design point and the map is then scaled. 

Following the combustor correction factors are the correction factors for each of the 
turbines, where 
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CN_PCF = CN-PDS 


(54) 


Vt* 


TF PCF - TF_PDS 14 ‘ 6 f 6 * 

(55) 

WG_* X ^ 

ET PCF - 

(56) 

ETAT_P 


DH_PCF - DHT - C 

(57) 


DHTCLP 

where the * values are at the inlet to the turbine, PCN_** is the percent corrected 
speed of the compressor being driven by the turbine, DHT_C is the actual work function 
of the turbine, and ETAT_P and DHTCLP are the values of efficiency and work function, 
respectively, at the design point chosen on the turbine maps. These correction factors 
are followed by the areas for the duct nozzle, turbine exit, and core nozzle. 

The aforementioned output occurs only at the design point. This is followed by out- 
put which was determined by a list of variable names submitted at execution time (see 
section Input required at execution time) . The engine type is spelled out prior to the 
listing of the variable values. The list of variables printed here with their definitions 
are found in appendix C. 

The type of nozzle is printed and then the number of loops required for convergence 
(always 1 for design points) . Next is printed a line labeled COMMON and on this line 
reading from left to right are the values of ZF, PCNF, ZI, PCNI, ZC, PCNC, T4, 
and MODE. The variables in the labeled common BLOCKS are printed next according 
to the following code: 


COMMON /DESIGN/ 

1PCNFGU , PCNCGU , T4GTJ , DUMD1 ,DUMD2 , DELFG , DELFN , DELSFC , 
2ZFDS , PCNFDS , PRFDS , ETAFDS , WAFDS ,PRFCF , ETAFCF , WAFCF , 
3ZCDS , PCNCDS , PRCDS ,ETACDS,WACDS , PROOF ,ETACCF,WACCF , 
4T4DS , WFBDS ,DTC0DS,ETABDS,WA3CDS,DPC0DS,DTC0CF,ETABCF, 
5TFHPDS,CNHPDS,ETHPDS,TFHPCF,CNHPCF,ETHPCF,DHHPCF,T2DS , 
6TFLPDS , CNLPDS , ETLPDS , TFLPCF , CNLPCF, ETLPCF, DHLPCF , T21DS , 
7T24DS ,WFDDS , DTDUDS , ETADDS , WA23DS , DPDUDS , DTDU OF , ETADCF , 
8T7DS ,WFADS , DTAFDS , ETAADS , WG6CDS , DPAFDS , DTAFGF , ETAACF , 
qASS APS AS A7 AS A9 APS AP9 

$PS55 *AM55 *CVDN0zJcVMN0zJa8SAV *A9SAV Ja28SAV* A29SAV’ 
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COMMON / FRONT/ 


1T1 

,P1 

,H1 

,S1 

,T2 

> P2 

,H2 

,32 

9 

2T21 

, P21 

,H21 

,S21 

,T3 

) P3 

,H3 

,S3 

9 

3T4 

,P4 

,H4 

,S4 

,T5 

,P5 

,H5 

,S5 

9 

4T55 

,P55 

,H55 

,S55 

,BLF 

,BLC 

,BLDU 

,BL0B 

9 

5 CNF 

, PRF 

,ETAF 

,¥AFC 

,¥AF 

,¥A3 

,¥G4 

,FAR4 

9 

6CNC 

, PRC 

,ETAC 

,¥ACC 

,¥AC 

,ETAB 

, DPCOM 

, DUMF 

9 

7CNHP 

, ETATHP 

, DHTCHP 

,DHTC 

,BLHP 

,¥G5 

,FAR5 

,CS 

9 

8CNLP 

, ETATLP 

,DHTCLP 

,DHTF 

,BLLP 

,¥G55 

, FAR55 

,HPEXT 

9 

9AM 

, ALTP 

,ETAR 

,ZF 

,PCNF 

,ZC 

, PCNC 

,¥FB 

9 

$TFFHP 

, TFFLP 

, PCBLF 

, PCBLC 

, PCBLDP 

f,PCBLOB 

i, PCBLHP 

, PCBLLP 

COMMON / SIDE/ 







1XP1 

,X¥AF 

,X¥AC 

,XBLF 

, XBLDU 

,XH3 

,DUMS1 

, DUMS2 

9 

2XT21 

,XP21 

,XH21 

,XS21 

,T23 

,P23 

,H23 

,S23 

9 

3T24 

, P24 

,H24 

,S24 

,T25 

,P25 

,H25 

,S25 

9 

4T28 

,P28 

,H28 

,S28 

,T29 

,P29 

,H29 

,S29 

9 

5¥AD 

,WFD 

,¥G24 

, FAR24 

,ETAD 

,DPDUC 

, BYPASS 

, DUMS3 

9 

6TS28 

-PS28 

,V28 

, AM28 

,TS29 

, PS29 

,V29 

, AM29 


COMMON / BACK/ 







1XT55 

,XP55 

,XH55 

,XS55 

,XT25 

,XP25 

,XH25 

,XS25 

9 

2XWFB 

,X¥G55 

, XFAR55 

,X¥FD 

,X¥G24 

, XFAR24 

:,XXP1 

, DUMB 

9 

3T6 

) P6 

,H6 

,S6 

,T7 

s P? 

,H7 

,37 

9 

4T8 

} P8 

,H8 

,S8 

,T9 

,P9 

,H9 

,S9 

9 

5¥G6 

,¥FA 

,¥G7 

,FAR7 

,ETAA 

, DP AFT 

,V55 

,V25 

9 

6PS6 

,V6 

, AM6 

,TS7 

, PS7 

,V7 

, AM7 

, AM25 

9 

7TS8 

,PS8 

,V8 

, AM8 

,TS9 

,PS9 

,V9 

,AM9 

9 

8VA 

,FRD 

,VJD 

,FGMD 

,VJM 

,FGMM 

,FGPD 

,FGPM 

9 

9FGM 

,FGP 

,¥FT 

,¥GT 

,FART 

,FG 

,FN 

,SFC 


COMMON /SP00L2/ 







1T22 

, P22 

,H22 

,S22 

,T50 

,P50 

,H50 

,S50 

9 

2WA22 

,ZI 

,PCNI 

,CNI 

,PRI 

,ETAI 

,¥ACI 

, TFFIP 

9 

3CNIP 

, ETATIP 

DHTC IP 

,DHTI 

,BLIP 

, PCBLIF 

PCNIGH 

ZIDS 

9 

4PCNIDS 

> , PRIDS 

, ETAIDS 

,¥AIDS 

, PRICF 

.ETAICF 

',¥AICF 

, TFIPDS , 

5CNIPDS 

:,etipds 

,TFIPCF 

' CNIPCF.ETAPCF.DHIPCF 

',¥AICDS 

>,¥AI 

9 

6PCBLI 

,BLI 

.T22DS 

,¥A21 






COMMON /DUMMYS/ XYZ(2l) (not printed) 




IWA32 

, DPWGDS 

,DP¥ING 

•,¥A32DS, A38 

, AM38 

,V38 

,T38 

9 

2H38 

, P38 

,TS38 

, PS38 

,T39 

,H39 

,P39 

,TS39 

9 


3V39 , AM39 ,A39 ,BPRINT,¥G37 , CVDWNG, FGM¥NG, FGPWNG, 
4FN¥ING, FNMAIN, FWOVFN, PS39 , FXFN2M , FXM2CP , TRUE , FALSE , 
5FF0VEN, FCOVFN, FMNOFN, FNOVFD, AFTFAN, DUMSPL, FDES , PCBLID 
6TFFHP , TFFIP , TFFLP ,CNHP ,CNIP ,CNLP , DHTCHP , DHTC 


This completes the printout of the design-point engine. Next the engine is run at an 
altitude of 25 000 feet, a Mach number of 0. 6, a turbine inlet temperature of 2260° R 
(recall MODE = 0), and standard -day conditions (IAMTP = 0). 

What follows is the off-design performance for the three-spool engine. Note that 
the common blocks are not printed for the off -design -point case. The running of the 
other eight engines is described in the following subsections and appears at the end of 
this main section. 
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Type b - Two-Spool, Three-Stream Boosted-Fan Turbofan 


Two $D(1), IDES = 1 will cause the deck to run a new design -point engine. The first 
of these two cards recalls all the design data of the previous design case. Any variable 
name (except speed when attaching spools) with a DS on the end (e. g. , PRFDS) remains 
unchanged unless overridden with a new value in input. These changed values must 
follow the second $D(1), IDES = 1 card. Therefore, referring to table n, to run engine b 
(the boosted fan; fig. 2) all that is necessary is to reset the design Mach number and 
altitude to zero, set up to run on a tropical day (T2 = 31, IAMTP m 2), and set 
FIXFANTOMIDDLE = . T. Note that in the output there are no correction factors for the 
intermediate-pressure turbine since the entire boosted fan is driven by the low-pressure 
turbine, and that PCNI and CNI are not 100 since the physical speed of the middle spool 
is set by that of the fan. Note also that TFFIP, CNIP, and DHTCIP are zero since that 
turbine is not used. The user was reminded of this by the line reading "FAN AND 
MIDDLE SPOOL ARE ATTACHED, USE INNER AND OUTER TURBINES. " 

To run the off -design case for all engines proceed as in engine a. 


Type c - Two-Spool, Three-Stream, Supercharged-Com pressor Turbofan 

To run engine c (fig. 3), it is necessary to detach the fan and middle spool 
(FIXFANTOMIDDLE = . F.); to set FIXMIDDLETOCOMP = .T. ; to reset Mach number, 
altitude, and tropical day; and to reset PCNIDS to design value (100). Note that the 
high-pressure turbine has been deleted. 


Type d - Three -Spool, Two-Stream Turbofan 

To run engine d (fig. 4), it is necessary to detach the middle and inner spools 
(FIXMIDDLETOCOMP = . F.); to reset Mach number, altitude, and tropical day; to re- 
set PCNCDS to design value (100); and to set PCBLIDS, the fraction of air exiting the 
middle spool and going into the wing, equal to zero. Note' that the intermediate duct is 
deleted and there is no wing thrust. 


Type e - Two-Spool, Two-Stream Turbofan 

To run engine e (fig. 5), it is necessary to reset Mach number, altitude, and 
tropical day; to set DUMMYSPOOL = .T. ; and to change inner-compressor pressure 
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ratio to 16/1. 4 so that overall pressure ratio is the same. Note that CNI = 0; PRI = 1. 0; 
WACI = WACC; and there is no wing thrust. 


Type f - Three-Spool, Three-Stream Aft-Fan Turbofan 

To run engine f (fig. 6), it is necessary to set DUMMYSPOOL = . F. ; to set AFTAN = 
. T. ; to set WAICDS a 400* TROPICALDAY (middle spool at free -stream conditions; 
tropical day); to reset PCBLIDS = 0. 5; to reset Mach number, altitude, and tropical 
day; to change airflows to fit new configuration; and to lower inner -compressor 
pressure ratio to 16/2. 2 (since middle compressor is now operating). Note that 
WAI > WAF since WAF does not enter the middle spool. 


Type g - Two-Spool, Three-Stream Aft-Fan Turbofan 

To run engine g (fig. 7), it is necessary to set FIXMIDDLETOOOMP = .T. ; and to 
reset Mach number, altitude, and tropical day. Note that AFTFAN continued to be true. 


Type h - Two-Spool, Two-Stream Aft-Fan Turbofan 

To run engine h (fig. 8), it is necessary to detach the middle and inner spools 
(FIXMIDDLETOCOMP = . F.); to set DUMMYSPOOL = . T. ; to set PCBLIDS = 0 (no 
airflow into wing); to reset PCNDDS to 100 and change PRCDS to maintain overall pres- 
sure ratio of 16; and to reset Mach number, altitude, and tropical day. 


Type i - Two-Stream Aft -Fan Turbofan 

To run engine i (fig. 9), it is necessary to set DUMMYSPOOL = . F. ; to reset Mach 
number, altitude, and tropical day; to lower the inner-compressor pressure ratio; and 
to reset PRIDS. The last case is followed by a $END card to terminate the reading of 
data. 


31 



*0<U,tl THIS CAUSES THIS CARO TO BE PRINTED AT TOP OF PAGE 1 
STABLE (. INTEGER. * 2=1 DES, 5=MODE, 7=IDUMP, 8 = 1 AMTP* 9=1 GASMX* 10= IDBURN.il* I AFTBN, 2 
l2=IDCD»13=IMCD,16=N0ZFLT,i7=ITRYS, .LOGICAL. , 358=FIXFANT0MIDDLE * 3 
359=FIXMIODLETOCOMP,366=AFTFAN,367=DUMMYSPOOL,.REAL.22=TOLALL,34=DELFG,35=DELFN, 4 
36=DELSFC,38=PCNFD$,39=PRFDS,40=ETAFDS,46=PCNCDS,47=PRCDS,48=ETACDS f 53=T40S, 5 
54=WFBDS*56*ETABDS * 58~DPC0DS* 63=ETHPDS* 71-ETLPDS* 82=DPDUDS»85=T7DS»88=ETAADS» 6 
90=DPAFDS,95=A6,97=AB*99=A28, 101=PS55,102=AM55, 103=CVDN0Z,104=CVMN0Z,113=T2, 7 
1 14= P2t 125=T4, 144=WAFC0S, 152=WACCDS, 172=HPEXT 1 173=AM,174=ALTP, 175=ET AR , 177=PCNF , 8 
179*PCNC»l80=WFB»183=PCBLF,184=sPCBLC» 185-PCBLDU » 186=PCBL0B» 187=PCBLHP* 9 
188=PCBLLP»205=T24 f 225=ETAD*257-T7«27Q=WFA,273 :s ETAA»279=AM6,313= £ AM23 »331“DPWGDS* 10 
3 34= A 38 « 400=H0TDAY , 401 = TROP I C ALDA Y, 402=C0LDDA Y* 403=PQLARD AY ,433=PCNI DS* 11 
430=PCBLIP,37=ZFDS»45=ZCDS,432=ZI0S,369=PCBLID$»351=CVDWNG, 12 
61”TFHP D$,62=CNHPD$»440=TFI PDS, 441=CNIPDS»69=TFLPD$* 70=CNLPDS, 13 
434*PRID$,435=ETAIDS,442=ETIPDS,447=WAICDS,449*PC8Ll ) t END OF TABLE 14 
t THE FOLLOWING CONSTANTS ARE HELPFULL IN DESIGNING FOR OTHER THAN STANDARD DAY 15 
t HOTDA Y (T2=44) t TROPIC ALD AY ( T2=31 ) »COLDDAY ( T2=-19) , POLARDAY I T2=— 75 ) 16 
H0TDAY=1. 041553, TR0PICALDAY=1. 02945 1,C0LDDAY=. 9815130, POL ARDAY*. 9248777, 17 
t CONTROL CARDS FOR NORMAL CASE - DESIGN FOR SEALEVEL 18 
AM=0,ALTP=0,IAFTBN=0,IDBURN=0,IAMTP=0,AM6=.24,AM23=.18*AM55=.238, 19 
NQZFLT=0* I DUMpal » IDCD=0 , I MCD=0, IGASMX=0*MODE=0, TOLALL*#010# ITRYS=400 , I DES=1 * 20 

FIXFANTOMID0LE=.F.,FlXMlDDLETaCOMP*.F.,AFTFAN=.F*,OUMHYSPbOL=.F. *0 21 

tO RUN STANDARD 3 SPOOL-3 STREAM TURBOFAN ENGINE AND DESIGN IT FOR A TROP. DAY 22 
t ACTUAL AIRFLOWS DESIRED ARE 600 LB/SEC INTO FAN, 400 LB/SEC INTO INTERMEDIATE 23 
t COMPRESSOR, AND 200 LB/SEC INTO CORE. NOTE - PROGRAM USES CORRECTEO AIRFLOWS 24 
PRFDS=l.4,ETAFDS=.88,WAFCDS=60O*TR0PICALDAY*PCNFDS=100,PCBLF*0,PiU0S=2*2/1.4, 25 


tO AT SLS, SORT ( THETA) / DEL TA=SQRT 1 1. + (PRFDS** U4/1.41-W * ZET AFDS) /PRFDS 
t SINCE THE PROGRAM REQUIRES CORRECTED AIRFLOWS, THE HIR CAN BE USED TO DO THIS 
t THE HIR USES THE FUNCTION PWRtX*Y) TO CALCULATE X**Y 
WAICDS=400*TR0PICALDAY*SQRT 1 1 • + IPWR t PRFDS* ( *4/1.4) )-l* ) /ETAFDS I /PRFDS 
£TAIDS=.87,PCNIDS=100,PCBLIDS=.5,ETABDS=.983, t 50 PERCENT OF THE AIR THAT IS 
t COMING OUT OF INTERMEDIATE COMPRESSOR GOES TO WING, REMAINDER TO CORE 
DPCODS*.O5,DPWGDS=.1O,PRCDS=16/2.2,PCNC0S=1OO,ETACDS=.86,PCBLC=O,DPOUO$=.O5, 
ETHPDS* .9, ET £PDS=.9*ETLPDS=.9,DELSFC«1*DELFN=1*DELFG=1, PCBL0B“Q*T4DS sa 256O, 
IAMTP=2,T2=31, t DESIGN FOR TROP. DAY, INPUT T2 IT1=U+T2 INPUT)* STANDARD PI 
TFHPDS-50,CNHPDS sc 2.0, TF IPDS=120,CNIPDS*2. 2»TFLPDS=130,CNLPDS=2* 3, 

ZFOS=. 83333333, ZIDS=. 83333333 ,ZCDS=. 81433225 ,CVDNOZ=. 985, CVHNOZ=. 985 ,CVDWNG=.985 

PRFCF* 0. 100Q000QE+01 ETAFCF= 0.10000000E+01 


FAN DESIGN 
MIDDLE SPOOL DESIGN 
COMPRESSOR DESIGN 
INTER DUCT DESIGN 
COMBUSTOR DESIGN 

H. P. TURBINE DESIGN 

I. P. TURBINE DESIGN 
L.P. TURBINE DESIGN 
DUCT NOZZLE DESIGN 
TURBINE AREA DESIGN 


PR ICF= 0.95238095E+00 


A38= 0.23859579E+01 


CNLPCF* 0. 10026477E+01 
A28= 0* 375089 34E +01 
A55= 0.79371517E+01 


ETAICF* 0.98863635E+00 


AM38* 0. 10000000E+01 


TFLPCF= 0.78657749E+0G 
AM28* 0* 65160510E + 00 
AM55- 0.23826588E+00 
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27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

WAFCF- 0-10294510E+01 
WA ICP- 0.1035 1161 E+01 
WACCF= 0. 106322 27 E+01 
A39* 0.23859579E+0L 


T2DS 3 0.54966819E+03 
T22DS- 0.61268656E+03 
T21DS* 0.7094395 8E+03 
AM39* 0. lOOOCOOOE+Ol 


WA3CDS= 0.30802648E+02 
CNHPCF= 0.10119289E+01 
CMIPCF* 0.998435896+00 


ETABCF* 0.98300000E+00 
TFHPCF* 0* 10815634E+01 
TFI PCF= 0*101500196+01 


DTCOCF= 0.10000000E+01 
ETHPCF= 0.10000000E+01 
ETI PCF* 0*10000000 E+01 
ETLPCF* 0*102013396+01 
A29= 0*375089 34 E+01 


DHHPCF* 0. 9572140 5E+00 
DHIPCF* 0*100770 22E+01 
DHLPCF* 0.13610839E+01 
AM 29* 0. 6516051QE+QQ 


PRCCF* 0. 8961039QE+00 £TACCF= 0.10000000E+01 


NOZZLE DESIGN 


A8= 0. 31 0205 77 E+01 


AM8= 0.10000000E+01 


A9= 0. 31020577 E+01 AM9* 0. lOOCOCOOE+Ol 


OUTPUT 

THREE SPOOL ENGINE 


ALTP = 


T4= 2560.00 


£TAR= 1.0000 


AM= 0, 


PCNF 

O.lOOOOOE+03 

PCNI 

0.1 OCOOOE+03 
PCNC 

0. 10000 0E+03 
T2 

0. 54966 8E+03 
T 3 

0.131143E+04 

PCBLHP 

0. 

W A3 

0. 20000 2E +03 
TFFHP 

0.462294E +02 
TFFtP 

0.1 18226E+03 
TFFLP 

0.1652736+03 

ETAB 

0.983000E+00 

WAD 

0 « 1 99997E + 0 3 
ETAF 


CNF 

0.100000E+01 

CNI 

0.100000E+01 

CNC 

0.100000E+01 

P2 

0.100000E+01 

P3 

0.160000E+02 

BLHP 

0. 

WFB 

0.409714E+01 

CNHP 

0.197642E+01 

CNIP 

0.220345E+01 

CNLP 

0.229393E+01 

PCBLDU 

0. 

WFD 

0. 

ETAI 


ZF 

0. 833333E+O0 
ZI 

0. 833333E+00 
ZC 

0.814332E+00 

T22 

0.612687E+03 

PCBLF 

0. 

PCBLIP 

0. 

WG4 

0.204099E+03 

DHTCHP 

0.600000E-01 

DHTC1P 

0.220000E-01 
OHTCLP 
0. 1 71750E-01 
ETAD 

0. 

WG24 

0.199997E+03 

ETAC 


PRF 

0.1400006+01 

PRI 

0*157 143E+01 
PRC 

0. 727273E+01 
P22 

0* 140000E+01 
BLF 

0. 

BLIP 

0. 

FAR4 

0* 204855E— 01 
DHTC 

0.147028E+03 

DHTI 

0* 45661 5E+02 
DHTF 

0. 444244E+02 
OPDUC 

0.500000E-01 

FAR24 

0. 

ETATHP 


WAFC 

0.617671E+03 

WACI 

0.310535E+03 

WACC 

0. 106322E+03 
T21 

0.709440E+03 

PCBLC 

0 . 

PCBLLP 

0. 

T4 

0* 256Q00E+04 
T50 

0.205966E+04 

T5 

0, 190038E+04 
T55 

0 • 174312E+04 
T24 

0. 612687E+03 
T25 

0. 612687E+03 
ETATIP 


WAF 

0.600000E+03 
WA I 

0*400004 E+ 03 
WAC 

0* 200002E+03 
P21 

0.22G00CE+01 

BLC 

0. 

BLLP 

0. 

P4 

0.152000E+C2 

P50 

0.53312CE+01 

P5 

0.36632CE+C1 

P55 

0.2463016+01 

P24 

0.13300CE+C1 

P25 

0. 133000E+01 
ETATLP 
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0.880000E+00 

0. 870000E+00 

0* 860000E+00 

0* 900000E+00 

0.900 OOOE+OO 

0. 900000 E+00 

T 6 

P6 

PS6 

AM6 

V6 

WG6 

0.174312E+04 

0.246301E+01 

0.237252E+01 

0.238266E+00 

0.472365E+03 

0.204099E+03 

T 7 

WFA 

WG7 

FART 

ETAA 

DPAFT 

0. 174312E+04 

0. 

0.204099E+03 

0.204855E-01 

0. 

0. 

PS8 

AM8 

V8 

PS9 

AM9 

V9 

0.1339906+01 

0. lOOOOOE+Ol 

0.185277E+04 

0. 133990E+01 

0. lOOOOOE+Ol 

0.1852776+04 

PS28 

AM28 

V28 

PS29 

AM29 

V29 

0, lOOOOOE+Ol 

0.651605E+00 

0.759245E+03 

0. lOOOOOE+Ol 

0.651605E+00 

0.759245E+C3 

BPRINT 

DP COM 

DPWING 

PS38 

AM38 

V38 

O.IOOOOOE+Ol 

0. 500000E-01 

0. 100000E+00 

0. 104874E+01 

0* 100000E+0 1 

0. L19237E+04 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRD 

0.499987E+00 

0. 

0.409714E+01 

0* 604097E+03 

0. 

0. 

PCBLI 

WG37 

VJW 

PS39 

AM39 

V39 

0.50C000E+00 

0* 200002E+03 

0* 117448E+04 

0* 104874E+01 

0. lOOOOOE+Ol 

0.U9237E+04 

CVDWNG 

FGMWNG 

FGPWNG 

FNWING 

FNMAIN 

P28 

0.985C00E+00 

0.730087E+04 

0.246082E+03 

0.754695E+04 

0.184570E+05 

0.13300CE+01 

FFOVFN 

FWOVFN 

FCOVFN 

FMNOFN 

FNOVFD 

P38 

0.178770E+00 

0.2902236+00 

0.531006E+00 

0. 709777E+00 

O.IOOOOOE+Ol 

0. 198000E+01 

CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

0.9 8500 OE+OO 

0* 182498E+04 

0.985000E+00 

0.747856E+03 

0*2352656+05 

0.2477416+04 

MAIN SONIC CONVERGENT NOZZLE 

FG= 26003.95 


FN= 26003.95 


SFC* 0,56721 


DUCT SUBSONIC CONVERG. NOZZLE 
CONVERGED AFTER 1 LOOPS 


COMMON 


0 • 833333E+00 0.100000E+03 


0.833333E+00 0.100000E+03 


0.814332E+00 O.lOOOOOE+03 


G« 256000E+04 0 


0» 1COOOOE *03 
0 • 833333E+00 
0 • 8 14332E+00 
0.256000E+04 
Os 500000E+02 
0.130000E+03 
0. 

0. 

0. 793715E+01 
0.237252E+01 


0.100000E+03 
Os 100000E+03 
0.100000E+03 

0 s 

0*2000006+01 
Os 230000E+01 
0 . 

0. 

0. 

0.238266E+00 


0.256000E+04 
0* 140000E+01 
0.727273E+01 
0.124857E+04 
0.900000E+00 
0.900000E+00 
0 . 

0 . 

0.793715E+01 

0.985000E+00 


0.1000006+03 
0.880000E+00 
0, 860000E+00 
0. 983000E+00 
0.108156E+01 
0.7865776+00 
0. 

Os 

Os 793715E+01 
0.9850006+00 


0, 

0.6000006+03 
0. 200002E+03 
Os 308026E+02 
0*1011936+01 
Q.100265Et01 
0.3536016+04 
0.3459706+04 
0.3102066+01 
0. 


O.IOOOOOE+Ol 
0.100000 E+01 
0.896104E+00 
0.500000E-01 
0* lOOOOOE+Ol 
0.102013E+01 
0.500000 E— 01 
0. 

0. 310206E+01 

0. 


O.IOOOOOE+Ol 
0 slOOOOOE+Ol 
O.IOOOOOE+Ol 
0 .lOOOOOE+Ol 
0.957214E+00 
0.136108E+01 
0. 

0. 

0 .375089E+01 

0. 


0.1000C0E+01 
0.102945 E+01 
0.1063226+01 
0. 983000E+00 
0.549668 E+03 
0.7094406+03 
C. 

0. 

0.375089E+01 

0. 


0.549670E+03 
0. 709440E+03 
0.256000E+04 
0. 1 74312E+04 
0* lOOOOOE+Ol 
0* 100000E+01 
0.200000E+01 
0 * 230000E+01 
0. 

0* 5C0000E +02 


O.IOOOOOE+Ol 
0.220000E+01 
0, 152000E+02 
0.246301 E+01 
0. 140Q00E+01 
Os 727273E+01 
0# 900000E+00 
0.900000E+00 
0. 

0.130000E+03 


0.131340E+03 
0.169750E+03 
0 . 681178E+03 
0.444064E+03 
0.880000E+00 
0.860000E+00 
0.574328E-01 
0.233766E-01 
0. lOOOOOE+Ol 
0. 


0. 160493E+01 
0.161219E+01 
0.182692E+01 
0.184049E+01 
0. 617671E+03 
0.106322E+03 
Os 147028E+03 
Os 444244E+02 
0. 833333E+00 
0. 


0. 54966 8E+03 
0.131143E+04 
0. 190038E+04 

0. 

0*6000006+03 

0.200002E+03 

0 . 

0. 

0* 100000E+03 

0. 


O.IOOOOOE+Ol 

0*1600006+02 

0*3663206+01 

0. 

0.200002E+03 

0.983000E+00 

0.204099E+03 

0.2040996+03 

0*8143326+00 

0. 


0.131340E+03 
0.3197906+03 
0.488488E+03 
0 * 

0 *2040996+03 
0.500000E-01 
0.204855E-01 
0.2048556-01 
0 *1000006+03 
0. 


0.160493 E+01 
0.162 873 E+01 
Os 183764E+01 

0. 

0. 204855 E-01 
0. 

0* 114970E+04 
0. 

0, 409714E+01 

0. 


0. lOOOOOE+Ol 
0* 709440E+03 
0. 6126 87E+03 
0. 612687E+03 
0.199997E+03 
0 * 564699E +03 


0.600000E+03 
0. 2200006+01 
0.133000E+01 
Os 133000E+01 

0. 

Os lOOOOOE+Ol 


0.200002E+03 
0.1697506+03 
0. 146451E+03 
0.146451E+03 
0 . 199997E+03 
0.759245E+03 


0. 

0. 161219E+01 
0.161140E+01 
0. 161140E+01 

0* 

0.651605E+00 


0. 

0.612687E+03 

0.612687E+03 

0.612687E+03 

0* 

0.564699E+03 


0.319790E+03 
0* 140000E+01 
0.133000E+01 
0, 133000E+01 
0* 500000E-01 
O.IOOOOOE+Ol 


0. 

0.146452E+03 

0.146451E+03 

0.146451E+03 

0.499987E+00 

0.759245E+03 


0. 

0. 160788E+01 
0.1611406+01 
0. 161 140E+01 

0. 

0. 651605 E+00 


0,1743 12E+04 
0.4097 14E+01 
Os 1743 12E+04 
0. 1743 12E+04 
0.204099E+03 
0.237252E+01 
0, 149533E+04 
0. 

0.235265E+05 


0.2463016+01 
0.204099E+03 
0. 246301 E+01 
0, 246301E+01 

0 * 

0.472365E+03 
0. 133990E+01 

0. 

0.247741E+04 


0.444064E+03 
0.2048556-01 
0.444064E+03 
0.444066E+03 
0.204099E+03 
0.238266E+00 
0.1 85277E+04 
0. 7478566+03 
0. 409714E+01 


0. 184049E+01 

0. 

0.184049E+01 
0. 184049E+01 
0. 204855E— 01 
0. 172717E+04 
O.IOOOOOE+Ol 
0.464873E+04 
0. 604097E+03 


0. 612687E+03 
0.1999976+03 
0. 174312E+04 
0. 174312E+04 
0 * 

0.237232E+01 
0. 149533E+04 
Os 182498E+04 
0.682856E-02 


0.1330006+01 

0. 

0.2463016+01 

0.246301E+01 

0 . 

0. 472360E+03 
0. 1339906+01 
0. 1157696+05 
0.2600406+05 


0.146451E+03 
0 .lOOOOOE+Ol 
0.444066E+03 
0 .4440666+03 
0. 47236 5E+03 
0.238266E+00 
0 *1852776+04 
0. 

0.260040E+05 


0,1611406+01 

0. 

0 . 184049E+01 
0. 184049E+01 
0. 

0. 

0 . 1000QQE+01 
0.223133E+04 
0.567210E+00 


0. 612687E +03 
0.4C0004E+03 
0. 2200006+01 
0.1 COOOOE +03 
0. 2200006+01 
0* 5C0000E +00 


0.140000E+01 
0. 833333E+00 
0.900000E+00 
0. 157 I43E+01 
0. 900000E+C0 
0. 200002E+03 


0 . 146452E+03 
0.100000E+03 
0. 2216946-01 
0.870000E+00 
0 .1015006+01 
0.612687E+03 


0.1607886+01 
0* lOOOOOE+Ol 
0.4566156+02 
0. 4000046+03 
0. 998436E+00 
0.2000026+03 


0.205966E+04 
0. 157143E+01 
0. 

0.952381E+00 

0. 


0.533120E+01 

0.870000E+00 

0 s 

0.988636E+00 

0.100770E+01 


0.534150E+03 

0.310535E+03 

0.1000006+03 

0.103512E+01 

0.310535E+03 


0.183496 E+01 
0 ■ 120000 E+03 
C.833333E+00 
0. 120000E+03 
0.400004E+03 


0 . 2C0002E +03 
0. 169750E +03 
0.119237E+04 
0.754695E+04 
0.178770E+00 
0.4622946+02 


0, 100000E+00 
0.198000E+01 
0. lOOOOOE+Ol 
0 • 1845706+05 
0, 5310066+00 
0 . L 18226E+03 


0. 100000E+00 
0.591600E+03 
0*2385966+01 
0.290223E+00 
0 • 7097776+00 
0. 165273E+03 


0. 242141E+04 
0.104874E+01 
O.IOOOOOE+Ol 
0. 104874E+01 
0. lOOOOOE+Ol 
0.1976426+01 


0. 238596E+01 
0.709440E+03 
0. 2000026+03 

0. 

0. 

0.220345E+01 


O.IOOOOOE+Ol 
0. 169750E+03 
0, 985000E+00 
0. 

0. 

0.2293936+01 


0.119237E+04 
0. 1980006+01 
0.730087E+04 
0. 

0. 2600406 + 05 
0.600000E-01 


0 * 709440E+03 
0.591600E+03 
0.246082E+03 

0. 

0.500000E+00 

0.147028E+03 
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$D(X )»ftM=.6,ALTP=25000, IAMTP=0,T4=2260,* RUN AT ALTITUDE AT REDUCED T4-STD DAY 
OUTPUT AM - 0.600 ALTP= 25000. T4= 2260.00 ETAR= 1.0000 

THREE SPOOL ENGINE 


PCNF 

CNF 

ZF 

PRF 

W AFC 

WAF 

0.942240E+02 

0.102935E+01 

0.786343E+00 

0* 140145E+01 

0*6516816+03 

0* 32739 1 E+03 

PCNI 

CNI 

ZI 

PRI 

WACI 

WAI 

0.933258E+02 

0. 1 01 769E+01 

0, B40261E+00 

0* 159827E+01 

0.318517E+03 

0. 212025 E + 03 

PCNC 

CNC 

ZC 

PRC 

W ACC 

WAC 

0.933807E+02 

0*1014016+01 

0* 830689E+00 

0* 758977E+01 

0* 109121E+03 

0. 107434E+03 

T 2 

P2 

T22 

P22 

T21 

P21 

0.460573E+03 

0.473409E+00 

0.515237E+03 

0.663457E+00 

0.601655E+03 

0* 106038E+0 1 

T3 

P3 

PCBLF 

BLF 

PCBLC 

BLC 

0.113928E+04 

0. 804806E+01 

0. 

0 * 

0 * 

0 . 

PCBLHP 

BLHP 

PCBLIP 

BLIP 

PCBLLP 

BLLP 

0. 

0. 

0 . 

0 . 

0 * 

0 . 

WA3 

WFB 

WG4 

FAR4 

T4 

P4 


0.107434E+03 0* 190718E+01 0.109341E+03 0. 177521E-01 0*2260006+04 0.764753E+01 

TFFHP CNHP DHTCHP DHTC T50 P50 

0.462507E+02 0.196428E+01 0.600790E-01 0.129697E+03 0.180739E+04 0.267177E+01 

TFFIP CNIP DHTCIP DHTI T5 P5 

0*1 18389E+03 0.219521E+01 0.220459E-01 0*4015186+02 0.166336E+04 0. 1832586+01 

TFFLP CNLP DHTCLP DHTF T55 P55 

0.165582E+03 0.231030E+01 0.172933E-01 0.391541E+02 0.152068E+04 0.122776E+01 

ETAB PCBLOU ETAD DPDUC T24 P24 

0.983000E+00 0. 0. 0.558117E-01 0.515237E+03 0.626428E+00 

WAD WFD WG24 FAR 24 T25 P25 

0.115366E+03 0. 0.115366E+03 0* 0.515237E+03 0.626428E+C0 

ETAF ETAI ETAC ETATHP ETATIP ETATLP 

0.852878E+00 0.854577E+00 0.855369E+00 0.899049E+00 0.899082E+00 0.899963E+CC 

T 6 P6 PS6 AM6 V6 WG6 

0. 15206 8E+04 0.122776E+01 0.118420E+01 0.237976E+00 0.442789E+03 0.109341E+03 

T7 WFA WG7 FAR 7 ETAA DPAFT 

0* 15206 8E+04 0. 0.109341E+03 0.177521E-01 0. 0. 

PS8 AM8 V8 PS9 AM9 V9 

0.665199E+00 0.100000E+01 0.173415E+04 0.665199E+00 0.100000E+01 0.173415E+04 

PS28 AM28 V28 PS29 AM29 V29 

0.371092E+00 0.897209E+00 0.926739E+03 0.371092E+00 0.897209E+00 0.926739E+03 

8PRINT DPCOM DPWING PS38 AM38 V38 

0*97353 7E+00 0.497678E-01 0.999163E-01 0.504516E+00 0.100000E+01 0*1098066+04 

BYPASS HPEXT WFT WGT VA FRD 

0*54411 5E+00 0. 0,190718E+01 0.329298E+03 0.609938E+03 0.620650E+04 

PCBLI WG37 VJW PS39 AM39 V39 

0.493296E+00 0.104591E+03 0.108159E+04 0*504516E+00 0.100000E+01 0.109806E+04 

CVDWNG FGMWNG FGPWNG FNWING FNMAIN P28 

0.985000E+00 0.351602E+04 0.6736B5E+03 0.220693E+04 0.678512E+04 0.626428E+CC 

FFOVFN FWOVFN FCOVFN FMNOFN FNOVFD P38 

0* 120785E+00 0.245431E+00 0.633784E+00 0.754569E+00 0.345795E+00 0.954433E+00 

CVMNOZ VJM CVDNOZ VJD FGM FGP 

0.985000E+00 0.170814E+04 0.985000E+00 0.912838E+03 0.125942E+05 0.260439E+04 

MAIN SCNIC CONVERGENT NOZZLE FG= 15198*55 FN= 8992*05 SFC= 0.76355 

DUCT SUBSONIC CONVERG* NOZZLE 


CONVERGED AFTER 25 LOOPS 


$0(1). IDES=1 * * NOW GOING TO DESIGN SAME ENGINE WITH ONLY 2 SPOOLS USING 

SD ( 1 ) 1 1 DES=1 1 * BOOSTED FAN (FIG 2) , NOTE NEED 2 I0ES=*1 CAROS TO RUN NEW DESIGN 

AM»0 * AL TP“0» F IXFANTOM I DDL E= .T . . I AMTP=2 » T2=31 » * NOTE PCBLIDS STILL = *5 

FAN DESIGN PRFCF= 0. 10000000E+01 ETAFCF= 0.10000000E+01 WAFCF- 0* 10294510E+01 T2DS* 0.54966819E+03 

MIDDLE SPOOL DESIGN PRICF= 0. 10443214E+01 ETAICF* 0.97711820E+00 WAICF* 0* 1 1059473E+01 T22DS* 0* 61268656E+03 

COMPRESSOR DESIGN PRCCF= 0. 89610390E+00 ETACCF= 0. 10000000E+01 WACCF= 0* 10632227E+01 T210S= 0.709439586+03 

INTER OUCT DESIGN A38= 0.23859580E+01 AM38 = 0.10000000E+01 A39- 0.23859580E+01 AM39= 0. lOOOCOCCE+Ol 

COMBUSTOR DESIGN WA3CDS= 0* 30802648E+02 ETABCF- 0.98300000E+00 DTCOCF= 0. 10000000E+01 

H.P. TURBINE DESIGN CNHPCF= 0* 10119289E+01 TFHPCF= 0.10815634E+01 ETHPCF= 0* 10000000 E+01 OHHPCF* 0.957214C5E+0C 

L.P. TURBINE DESIGN CNLPCF= 0* 10438194E+01 TFLPCF= 0. 10995854E+01 ETLPCF= 0. 10201 339E+01 DHLPCF= 0.254663 C5E+ 01 

DUCT NOZZLE DESIGN A28^ 0.375089346 + 01 AM28= 0.65160510E+00 A29= 0.37508934E+01 AM29= 0. 65 1605 10E + 00 

TURBINE AREA DESIGN A55= 0. 79688787E+01 AM55= 0.23826598E+00 

NOZZLE DESIGN A8= 0. 31 144586E+0 1 AM8= 0. lOOOOOOOE+Ol A9= 0, 3 1 144586 E+01 AM9= 0. 10 C CO C COE+O 1 

OUTPUT AM= 0. AL TP = 0* T4= 2560.00 E TAR = 1.0000 


34 



FAN AND MIDDLE SPOOL ARE ATTACHED , 

USE INNER AND OUTER TURBINES 




P CNF 

CNF 

ZF 

PRF 

WAFC 

WAF 

0.100000E+03 

O.IOOOOOE+Ol 

0.833333E+00 

0. 140000E+01 

0.617671E+03 

0* 60000CE+03 

PCNI 

CNI 

ZI 

PRI 

WACI 

WAI 

0.947177E+02 

0.947177E+00 

0.833333E+00 

0.157143E+01 

0.310535E+03 

0.400004E+C3 

PCNC 

CNC 

ZC 

PRC 

W ACC 

WAC 

O.lOOOOOE+03 

0* 100000E+01 

0.814332E+00 

0. 727273E+01 

0. 106322E+03 

0.200002E+C3 

T2 

P2 

T22 

P22 

T21 

P21 

0.549668E+03 

0. lOQOOOE+Ol 

0.612687E+03 

0.140000E+01 

0*709 440E+0 3 

0.22000CE+0 1 

T 3 

P3 

PCBLF 

BLF 

PCBLC 

BLC 

0* 1 31 143E+04 

0.1600006+02 

0 . 

0. 

0. 

0. 

PCBLHP 

BLHP 

PCBLI P 

BLIP 

PCBLLP 

BLLP 

0. 

0. 

0. 

0. 

0 . 

0. 

WA3 

WFB 

WG4 

FAR4 

T4 

P4 

0.200002E+03 

0.409714E+01 

0.204099E+03 

0. 204855E— 01 

0. 256000E+04 

0. 15200CE+02 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T50 

P50 

0.462294E+02 

0.197642E+01 

0.600000E-01 

0. 147028E+03 

0.205966E+04 

0.533120E+01 

TFFIP 

CNIP 

DHTCIP 

DHTI 

T5 

P5 

0 . 

0. 

0. 

0. 

0.205966E+04 

0. 53312CE+0 1 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 

0*1 18226E+03 

0*220345E+01 

0.171750E-01 

0.900859E+02 

0.174312E+04 

0. 245320E+0 I 

ETAB 

PCBLDU 

ETAD 

DPDUC 

T24 

P24 

0. 98300 OE+OO 

0 . 

0 . 

0. 500000E-01 

0* 612687E+0 3 

0.13300CE+01 

WAD 

WFD 

WG24 

FAR 24 

T25 

P25 

0.199997E+03 

0 . 

0* 199997E+03 

0 . 

Q.612687E+03 

0* 133000E+0 1 

ETAF 

ETAI 

ETAC 

ETATHP 

ETATIP 

ETATLP 

0.88C0006+00 

0.870000E+00 

0*8600006+00 

0. 9000006+00 

0 . 

0.90000CE+00 

T 6 

P6 

PS6 

AMS 

V6 

WG6 

0*1 74312E+04 

0.245320E+01 

0* 236307E+Q1 

0.238266E+00 

0.472 365E+03 

0.204099E+03 

T 7 

WFA 

WG7 

FAR7 

ETAA 

OPAFT 

0.I74312E+04 

0 . 

0.204099E+03 

0. 204855E-01 

0 * 

0 . 

PS8 

AM8 

V8 

PS9 

AM9 

V 9 

0.133457E+01 

0. 100000E+01 

0.185277E+04 

0.133457E+01 

O.IOOOOOE+Ol 

0* 185277E+04 

PS28 

AM28 

V28 

PS29 

AM29 

V29 

O.IOOOOOE+Ol 

0.651605E+00 

0.759245E+03 

0. 100000E+01 

0.651605E+00 

0. 759245E+03 

BPRINT 

DPCOM 

DPWING 

PS38 

AM38 

V38 

O.IOOOOOE+Ol 

0.500000E-01 

0.100000E+00 

0* 104874E+01 

O.IOOOOOE+Ol 

0.U9237E+C4 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRO 

0.499987E+00 

0 . 

0.409714E+01 

0.604097E+03 

0 . 

0 . 

PCBLI 

WG37 

VJW 

PS39 

AM39 

V39 

0.500000E+00 

0. 200002E+Q3 

0* 117448E+04 

0.104874E+01 

O.IOOOOOE+Ol 

0* 119237E+C4 

CVDWNG 

FGMWNG 

FGPWNG 

FNWING 

FNMAIN 

P26 

0.985000E+00 

0.730087E+04 

0.246082E+03 

0.754695E+04 

0.184308E+05 

0.133000E+01 

FFOVFN 

FWOVFN 

FCOVFN 

FMNOFN 

FNOVFD 

P38 

0. 17895 1E+00 

0.290516E+00 

0.530533E+00 

0* 709483E+00 

0.1000006+01 

0. 19800CE+01 

CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

0.985000E+00 

0* 182498E+04 

0.985000E+00 

0.747856E+03 

0.235265E+05 

0.245117E+04 

MAIN SCNIC CONVERGENT NOZZLE 

FG- 25977.71 


FN= 25977.71 


SFC= 0.54778 


DUCT SUBSONIC CONVERG. NOZZLE 
CONVERGED AFTER 1 LOOPS 


COMMON 

0.833333E+00 

0. 100000E+03 

0* 833333E+00 

0.947177E+02 

0.814332E+00 

0.100000E+03 

0 • 256000E+04 

0. 1C0OOOE+O3 

0.100000E+03 

0.256000E+04 

0. 1GQO00E+O3 

0 . 

0. 100000E+01 

O.IOCOOOE+Ol 

O.IOOOOOE+Ol 

0. 833333E +00 

0* 100000E+03 

0.140000E+01 

0.880000E+00 

0.600000E+03 

O.IOOOOOE+Ol 

O.IOOOOOE+Ol 

0. 102945 E+01 

0.814332E+00 

0.100000E+03 

0.727273E+01 

0. 860000E+00 

0.200002E+03 

0. 896104E+00 

0 *1000006+01 

0 .1063226+01 

0. 256000E+04 

0. 

0 • 124857E+04 

0.983000E+00 

0.308026E+02 

0.500000E-01 

0 *1000006+01 

0.983000E+00 

0.500000E+02 

0.200000E+01 

0.900000E+00 

0.108156E+01 

0. 101 193E+01 

O.IOOOOOE+Ol 

0.957214E+00 

0.549668E+03 

0.130000E+03 

0.230000E+01 

0.900000E+00 

0.109959E+01 

0.104382E+01 

0.102013E+01 

0.254663E+01 

0. 7094406+03 

0. 

0. 

0. 

0. 

0. 353601E + 04 

0.500000E-01 

0. 

0. 

0. 

0. . 

0. 

0. 

0* 347353E+04 

0. 

0. 

0. 

0* 796880E+O1 

or 

0.796888E+01 

0.796888E+01 

0.311446E+01 

0.311446E+01 

0.3750896+01 

0. 375089E+01 

0* 236307E +01 

0.248266E+00 

0.985000E+00 

0. 985000E+00 

0. 

0. 

0. 

a. 

0. 549670E+03 

0. lOOOOOE+Ol 

0.131340E+03 

0* 160493E+01 

0.549668E+03 

o.ioooooe+oi 

0.131340E+03 

C. 160493 E+OI 

0.709440E+03 

0.220000E+01 

0.169750E+03 

0.161219E+01 

0.131143E+04 

0. 160000E+02 

0.319790E+03 

0 • 162873E + 01 

0.256000E+04 

0.152000E+02 

0.681 178E+03 

0.182692E+01 

0.205966E+04 

0. 533120E+01 

0.5341506+03 

0 .1834966+01 

0.174312E+04 

0.245320E+01 

0 • 444064E+03 

0. 184076E+01 

0. 

0. 

0. 

0. 

0. ICOOOOE+Ol 

0 • 14000QE+01 

0.880000E+00 

0.617671E+03 

0.600000E+03 

0 .200002E+03 

0.204099E+03 

C. 2048 55E-01 

0. 1 COOOOE +01 

0* 727273E +01 

0 • 860000E+00 

0.106322E+03 

0.200002E+03 

0*9830006+00 

0 .500000E-01 

0 . 

0. 2C00O0E+01 

0.900000E+00 

0.574328E-01 

0. 147028E+03 

0 . 

0.2040996+03 

0.204855E-01 

C.114970E+04 

0. 230000E+01 

0.900000E+00 

0.437383E-01 

0* 9Q0859E+02 

0. 

0*2040996+03 

0.204855E-01 

0 . 

0. 

0 . 

0 • 100000E+01 

0.833333E+00 

0.100000E+03 

0.8143326+00 

0 .1000006+03 

0. 4097 14E+01 

0.5COOOOE+02 

0.130000E+03 

0 . 

0. 

0 . 

0* 

0 . 

C. 

0. ICOOOOE+Ol 

0. 600000E+03 

0 • 200002E+03 

0 . 

0. 

0. 3197906+03 

0 . 

C. 

0. 7C9440E+03 

0.220000E+01 

0.169750E+03 

0. 1612196+01 

0.612687E+03 

0. 140000E+01 

0*1464526+03 

0. 160788E+01 

0.6126376+03 

0..133000E+01 

0.146451E+03 

0.161140E+01 

0.612687E+03 

0. 133000F+01 

0 .1464516 + 03 

0.161140E+01 

0.612687E+03 

0. 133000E+01 

0.146451E+03 

0.161140E+01 

0.612687E+03 

0. 133000E+01 

0.146451E+03 

0.161 140E+01 

0.1S9997E+03 

0. 

0.1 99997E+03 

0* 

0. 

0.500000E-01 

0.499987E+00 

0. 

0.5646996+03 

0 • 100000E+01 

0.759245E+03 

0* 651605E+00 

0. 564699E+03 

0* 100000E+01 

0.759245E+03 

0.651605E+00 
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0.174312E+04 
0-4097 146+01 
0.1743126*04 
0.1743126*04 
0.204099E+03 
0.2363076*01 
0.149533E*04 
0. 

0.235265E*05 

0. 612687E *03 
0.4C0004E *03 
0.2191 77E*01 
0.9471776*02 
0. 220000E+01 
0. 500000E+00 

0.2C0002E*03 
0.169750E+03 
0. 1 19237E *04 
0.754695E+04 
0.178951E*00 
0.462294E *02 


0.245320E+01 
0.204099E+03 
0.2453206+01 
0. 245320E+01 

0. 

0.472365 E+03 
0.133457E+01 

0. 

0.245117E+04 

0.140000E+01 
0.833333E+00 
0. 899082 E+00 
0.157143E+01 
0.900000E+00 
0* 2Q0002E+03 

O.IOOOOOE+OO 
0. 198000E+01 
0* 100000E+01 
0.184308E+05 
0. 530533 6+00 
0. 


0.444064E+03 
0.204855E— 01 
0.444064E+03 
0.444066E+03 
0.2040996+03 
0.238266E+00 
0 . 185277E+04 
0. 747856E+03 
0.409714E+01 

0.1464526+03 
0.947177E+02 
0 .2221576-01 
0.870000E+00 
0.1015006+01 
0.612687E+03 

0 • 100000E+00 
0.5916006+03 
0.238596E+01 
0.290516E+00 
0.7094836+00 
0.118226E+03 


0.1840766+01 

0. 

0. 1840766+01 
0.1840766+01 
0.204855E-01 
0.1727176+04 
0.1000006+01 
0.4648736+04 
0. 6040976+03 

0.1607886+01 

0.9471776+00 

0.401518E+02 

0.4000046+03 

0.998436E+00 

0.2000026+03 

0.242141E+04 
0.104874E+01 
0.100000E+01 
0. 104874E+01 
0.100000E+01 
0. 197642E+01 


0.6l26876f 03 
0.199997E+03 
0.174312E+04 
0.1743126+04 

0. 

0.2362886*01 
0.1495336+04 
0.1824986+04 
0. 6828566-02 

0* 205966E + 04 
0. 1571436+01 

0. 

0.1044326+01 

0 . 


0. 238596E+01 
0.7094406+03 
0. 2000026+03 
O.OOOOOOE-38 
0. 

0. 


0.133000E+01 

0. 

0. 245320E+01 
0. 245320E+01 
0. 

0.472361E+03 
0.133457E+01 
0*1 15769E+05 
0.2597776+05 

0.5331206+01 
0. 870000E+00 

0 * 

0.9771186+00 

0.1007706+01 


0. 1000006+01 
0.1697506+03 
0.985000E+00 
0. 

0. 

0.2203456+01 


0.1464516+03 
0.100000E+01 
0 .4440666+03 
0.4440666+03 
0.472365E+03 
0.238266E+00 
0.18 5277E + 04 
0. 

0.259777E+05 

0.534150E+03 

0.310535E+03 

0.100000E+03 

0.110595E+01 

0.310535E+03 


0.119237E+04 

0.1980006+01 

0.7300876+04 

0 . 

0.259777E+05 

0.600000E-01 


0 .1611406+01 

0. 

0. 184076E+01 
0.184076 £+01 

0. 

C. 

0. 10G0C0E+01 
0.2205096+04 
0. 5677836+00 

0.183496E+01 
C.120000E+03 
0.8333336+00 
C. 1200C0E+03 
0.400004E+03 


C. 7094406+03 
0. 5916006+03 
0.2460826+03 
C. 

0.500000E+00 
0. 147028E+03 


$D(1)»AM=.6» ALT P=2 5000* 1 AMTP = 0* T4=2260* $ RUN AT ALTITUDE AT REDUCEO T4-ST0 DAY 


OUTPUT 


AM= 0.600 ALTP= 25000. 


T4= 2260.00 


ETAR * 1.0000 


FAN AND MIDDLE SPOOL ARE ATTACHED , USE INNER AND OUTER TURBINES 


PCNF 

CNF 

ZF 

PRF 

W AFC 

WAF 

0.943578E+02 

0.103081E+01 

0.7822276+00 

0. 140053E+01 

0.6535156+03 

0.3283136+03 

PCNI 

CNI 

ZI 

PRI 

WACI 

VI A I 

0.893735E+02 

0. 9746186+00 

0.8441226+00 

0.160785E+01 

0.3201846+03 

0. 21300 1E+03 

PCNC 

CNC 

ZC 

PRC 

WACC 

WAC 

0.9337726+02 

0.101356E+01 

O.83OU7E+0O 

0.757917E+01 

0. 109033E+0 3 

0.107878E+C3 

T2 

P2 

T22 

P22 

T21 

P21 

0.460573E+03 

0.473409E+00 

0.515214E+03 

0.663025E+00 

0.602139E+03 

0. 1066056 + 01 

T3 

P3 

PCBLF 

BLF 

PCBLC 

8LC 

0* 1 139586+04 

0.8079766+01 

0. 

0. 

0. 

0. 

PCBLHP 

BLHP 

PCBLI P 

BLI P 

PCBLLP 

BLLP 

0. 

0. 

0. 

0. 

0. 

0. 

WA 3 

WFR 

WG4 

FAR4 

T 4 

P4 

0.10787 8E+03 

0.191458E+01 

0. 109792E+03 

0.177476E-01 

0.226000E+04 

0. 76775 2E+01 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T50 

P50 

0.462601E+02 

0. 196420E+01 

0.604728E-01 

0.129657E+03 

0.1897536+04 

0. 2680426+0 1 

TFFIP 

CNIP 

DHTCIP 

DHTI 

T5 

P5 

0. 

0. 

0. 

0. 

0.1 80753E+0 4 

0.268042E+01 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 

0. 1184986+03 

0. 2219406+01 

0.L72633E-01 

0. 794933E+02 

0.152013E+04 

0. 122442 E+0 1 

ETA8 

PC8LDU 

ETAD 

DPDUC 

T24 

P24 

0.9830006+00 

0. 

0. 

0.5582076-01 

0.5 15 214E+Q 3 

0.626015E+0C 

WAD 

WFD 

WG24 

FAR24 

T25 

P25 

0.1153126+03 

0. 

0. 11 5312E+03 

0. 

0. 515214E+03 

0.626015E+00 

6TAF 

ETAI 

ETAC 

ETATHP 

ETATIP 

ETATLP 

0.8515176+00 

0* 861 143E+00 

0.855535E+00 

0.898265E+00 

0. 

0.89975 1E+C0 

T 6 

P6 

PS6 

AMS 

V6 

WG6 

0. 1 5201 3E+04 

0.122442E+01 

0. 118073E+01 

0. 238655E+00 

0. 443966E+03 

0.109792E+C3 

T7 

WF A 

WG7 

FAR 7 

ETAA 

OPAFT 

0.1520136+04 

0. 

0.1097926+03 

0.177476E-01 

0. 

0. 

PS8 

AM8 

VB 

PS9 

AM9 

V9 

0. 66515 1E+00 

0.1000006+01 

0.173385E+04 

0.665151E+00 

0. 1000006+0 1 

0. 173385E+04 

PS28 

AM28 

V28 

PS29 

AM29 

V29 

0.371092E+00 

0.896824E+00 

0.926377E+03 

0.3710926+00 

0.8968246+00 

0.9263776+03 

BPRINT 

DPCOM 

DPWING 

PS38 

AM38 

V38 

0.97 446 16 + 00 

0. 497839E-01 

0.999307E-01 

0.5072856+00 

0. 100000E+0 1 

0* 109850E+ C4 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRD 

0.54137 1E+00 

0. 

0.191458E+01 

0.330227E+03 

0.6099386+03 

0.622397E+04 

PCBLI 

WG37 

VJW 

PS39 

AM39 

V39 

0.49 353 3E +00 

0.1051236+03 

0.1082026+04 

0.5072856+00 

0. 100000E+0 1 

0* 10985CE + C4 

CVOWNG 

FGMWNG 

FGPWNG 

FNWING 

FNMA IN 

P28 

0.9 8 5000E +00 

0.353531E+04 

0.6876676+03 

0.223012E+04 

0.680525E+04 

0. 62601 5E+00 

FFOVFN 

FWOVFN 

FCOVFN 

FMNOFN 

FNOVFD 

P 38 

0.1200086+00 

0.246821E+00 

0.6331716+00 

0. 753179E+00 

0. 347812E+0 C 

0.959518E+CC 

CVMNOZ 

VJM 

CVDNOZ 

VJO 

FGM 

FGP 

0.9 8 5000E + 00 

0.170784E+04 

0.985000E+00 

0.912481E+03 

0.126336E+05 

0.262577E+04 


MAIN SONIC CONVERGENT NOZZLE FG= 15259.34 

DUCT SUBSONIC CONVERG. NOZZLE 


FN- 9035.37 


SFC= Q. 76283 


CONVERGED AFTER 16 LOOPS 
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iOUI,lOES = l, * NOW GOING TO RUN SANE ENGINE WITH ONLY 2 SPOOLS USING 
tom .IDES=1,* SUPERCHARGED COMPRESSOR (FIGURE 3) 

FIXFANT0MIDDLE=.F.,FIXMIDDLET0C0MP=.T.,AM=0,ALTP=0, IAMTP=2 t T2^3L» 

PCNI DS= LOO* * MUST BE RESET BECAUSE IT PREVIOUSLY WAS DETERMINED BY PCNFDS 

FAN DESIGN PRFCF= 0. lOOOOOOOE+Ol ETAFCF* 0. lOOOOOOOE+Ol WAFCF= 0. 102945 10E+01 T20S* 0,549668196+03 

MIDDLE SPOOL DESIGN PRICF= 0. 95238095E+00 ETA ICF= 0 . 98863635E+00 WAICF= 0, 10351161E+01 T22DS* 0,612686566+03 

COMPRESSOR DESIGN PRCCF= 0.10340043E+01 ETACCF= 0. 10268452E+01 WACCF= 0. 12048016E+01 T210S= 0, 70 94395 8E+03 

INTER DUCT DESIGN A38= 0.23859579E+01 AM38* 0, 10000000E+01 A39= 0.23859579E+01 AM39= 0.1000 C000E+01 

COMBUSTOR DESIGN WA3CDS= 0. 30802649E+02 ETABCF= 0. 98300000E+00 DTCOCF= 0.10000000E+01 

r.P. TURBINE DESIGN CNIPCF= 0. 10119288E+01 TFIPCF= 0. 10815634E+01 ETIPCF* 0. 10000000E+01 DHIPCF* 0.125448936+01 

L.P. TURBINE DESIGN CNLPCF= 0. 10026477E+01 TFLPCF= 0. 77781 743E + 00 ETLPCF= 0.10201339E+01 DHLPCF= 0. 136 10838E+01 

DUCT NOZZLE DESIGN A28 = 0. 37508934E+01 AM28= 0. 65160510E+00 A29= 0. 37508934E+01 AM29=* 0.65160510E+00 

TURBINE AREA DESIGN A55= 0. 80265361E+01 AM55* 0.23826609E+00 

NOZZLE DESIGN A8= 0. 31369934E+01 AM8= 0. 10000000E+01 A9= 0.31369934E+01 AM9= 0. 100 COCOOE+O 1 

OUTPUT AM= 0. ALTP- 0. T4= 2560.00 ETAR* 1,0000 


MIDDLE AND COMPRESSOR SPOOLS ARE ATTACHED , USE MIDDLE ANO OUTER TURBINES 


PCNF 

CNF 

1 ? 

PRF 

WAFC 

WAF 

0.100000E+03 

O.IOOOOOE+OI 

0. 833333E+00 

0. 140000E+01 

0. 617671E+03 

0.600000E+03 

PCNI 

CNI 

ZI 

PRI 

WACI 

WAI 

0.100000E+03 

0. 100000E+01 

0.833333E+00 

0.157143E+01 

0.3105356+03 

0.400004E+03 

PCNC 

CNC 

ZC 

PRC 

WACC 

WAC 

0.929312E+02 

0.929312E+00 

0.814332E+00 

0.727273E+01 

0.1063226+03 

0. 200002 E+ 03 

T 2 

P2 

T22 

P22 

T21 

P21 

0.54966 8E+03 

0. lOOOOOE+Ol 

0.612687E+03 

0. 140000E+01 

0.7094406+03 

0.220000 E+0 1 

T3 

P3 

PCBLF 

BLF 

PCBLC 

BLC 

0.131143E+04 

0.160000E+02 

0 . 

0 . 

0 . 

0 . 

PCBLHP 

BLHP 

PCBLI P 

BLIP 

PCBLLP 

8LLP 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

WA3 

WFB 

WG4 

FAR4 

T4 

P4 


0.20000 2E+03 0.409714E+01 0.204099E+03 0.204855E-01 0.256000E+04 0.152000E+C2 

TFFHP CNHP DHTCHP DHTC T50 P50 

0. 0. 0, 0. 0.256000E+04 0.15200CE+02 

TFFIP CNIP DHTC IP DHTI T5 P5 

0.462294E+0 2 0.197642E+01 0.600000E-01 0.192690E+03 0.190038E+04 0.36224CE+01 

TFFLP CNLP DHTCLP DHTF T55 P55 

0.167134E+03 0.229393E+01 0.171750E-01 0.444244E+02 0.174312E+04 0.243558E+01 

ETAB PCBLDU ETAD DPDUC T24 P24 

0.983000E+00 O. 0. 0.500000E-01 0.612687E+03 0.13300CE+C1 

WAD WFD WG24 FAR24 T25 P25 

0.1 99997E+03 0. 0.199997E+03 0. 0.612687E+03 0.133000E+01 

ETAF ETAI ETAC ETATHP ETATIP ETATLP 

0.880000E+00 0. 870000E+00 0.860000E+00 0. 0.900000E+00 0.90000CE+0C 

T 6 P6 PS6 AM6 V6 WG6 

0.174312E+04 0.243558E+01 0.234610E+01 0.238266E+00 0.472365E+03 0.204099E+03 

T7 WFA WG7 FAR7 ETAA DPAFT 

0.174312E+04 0. 0.204099E+03 0.204855E-01 0. 0. 

PS8 AM8 V8 PS9 AM9 V9 

0.132498E+01 0.100000E+01 0.185277E+04 0.132498E+01 O.IOOOOOE+Oi 0.185277E+04 

PS28 AM28 V28 PS29 AM29 V29 

O.IOOOOOE+OI 0. 65 1605E+00 0.759245E+03 O.IOOOOOE+OI 0.651605E+00 0.759245E+03 

BPRINT DPCOM DPWING PS38 AM38 V38 

0, lOOOOOE+Ol 0.500000E-01 0.100000E+00 0.1048746+01 O.IOOOOOE+OI 0.119237E+04 

BYPASS HPEXT WFT WGT VA FRO 

0.499987E+00 0. 0.409714E+01 0.604097E+03 0. 0. 

PCBLI WG37 VJW PS39 AM39 V39 

0.500000E+00 0. 200002E+03 0.117448E+04 0. 104874E+01 O.IOOOOOE+OI 0.119237E+C4 

CVOWNG FGMWNG FGPWNG FNHING FNMAIN P28 

0.985C006+00 0.730087E+04 0.246082E+03 0.754695E+04 0.183831E+05 0.13300CE+01 

FFOVFN FWOVFN FCOVFN FMNOFN FNOVFD P38 

0.179280E+00 0.291051E+00 0.529669E+00 0.708949E+00 O.IOOOOOE+OI 0.19800CE+CI 

CVMNOZ VJM CVDNQZ VJO FGM FGP 

0.985000E+00 0.182498E+04 0.985000E+00 0.747856E+03 0.235265E+05 0.240348E+04 

MAIN SCNIC CONVERGENT NOZZLE FG= 25930.02 FM* 25930.02 SFC= 0.56883 

DUCT SUBSONIC CONVERG. NOZZLE 


CONVERGED AFTER 1 LOOPS 
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COMMON 


0.833333E+00 0. 100000E+03 0, 833333E+00 0.100000E+03 


0.814332E+00 0 ,92931 2E+02 


0 • 2560C0E+04 0 


O.1COO0OE+O3 
0.833333E+00 
0.814332E+00 
0. 256000E <-04 
0.500000E+02 
0*1 30000E +03 
0. 

0. 

0. 802654E+01 
0. 234610E+01 

0.549670E+03 
0. 709440E+03 
0.256000E+04 
0* 1 74312E *04 
0.1C0000E+01 
0. 9293 12E+00 
0. 

0, 230000E+01 

0. 

0.5C0000E+02 

0# 1C0000E+01 
0. 7C9440E+03 
0.612687E+03 
Ob 612687E <-03 
Ob 199997E+03 
0.564699E+03 

Ob 174312E+04 
0.409714E+01 
Ob 1743 12E+04 
Ob 1743 12E *04 
0.204099E+03 
0.234610E+01 
Ob 1495 33E+04 
0. 

0. 235265E +05 

0,612687E+03 
0.4C0004E+03 
0.200000E+01 
0.100000E+03 
0.220000E+01 
0 a 500000E+00 

0.2C0002E+03 
0.169750E+03 
0.119237E+04 
0. 7 546 95 E +04 
0.179280E+00 
0. 


O.IOOOOOE+03 
0.1000006+03 
0. 929312E +02 

0. 

0.200000E+01 
Oa 230000E+01 
0, 

0 . 

0. 

0.238266E+00 

0.100000E+01 
0.220000E+01 
0. 152000E+02 
0.243558E+01 
Ob 140000E+01 
0.727273E+01 
0 • 

0.900000E+00 

0. 

0.130000E+03 

0.600000E+03 

0.22000DE+01 

0.133000E+01 

0.133000E+01 

0. 

0.100000E+01 

0.243558E+01 
Ob 204099E+03 
0.243558E+01 
0.243558E+01 
0. 

Ob 472365 E+03 
0. 132498 E+01 

0 s 

0.24G348E+04 

0.140000E+01 
0.833333E+00 
0, 900000E+00 
0.157143E+01 
Ob 900000E+00 
0.200002E+03 

ObIOOOOOE+OO 
0.198000E+01 
ObIOOOOOE+OI 
Ot 183831 E+05 
0. 529669E+00 
0.462294E+02 


0 *256000E+04 
0.140000E+01 
0b727273E+01 
0 a 124857E+04 
0 a 900000E+00 
0 a 900000E +00 
0. 

0, 

0.802654E+01 

0.985000E+00 

0.131340E+03 
0.169750E+03 
0b681178E+03 
Ob 444064E+03 
0.880000E+00 
Ob 860000E+00 
0. 

0.233766E-01 

0.100000E+01 

0, 

0.200002E+03 
0 s 169750E+03 
0.146451E+03 
0.146451E+03 
Ob 199997E+03 
Q.759245E+03 

0.444064E+03 
0.204855E-01 
0.444064E+03 
0.444066E+03 
0.204099E+03 
0.238266E+00 
0.185277E+04 
0.747856E+03 
0,40971 4E+01 

0.146452E+03 
0, 100000E+03 
0 , 752694E-01 
0 a 870000E+00 
0 , 108156E+01 
0,612687E+03 

ObIOOOOOE+OO 

0.591600E+03 

0,238596E+01 

0.291051E+00 

0.708949E+00 

0.167134E+03 


0. 100000E+03 
0.880000E+00 
0» 860000E+00 
0 b 983000E + 00 

0. 

0.777817E+00 

0. 

0. 

0.802654E+01 

0.9850006+00 

Ob 160493E+01 
Ob 161219E+01 
0.182692E+01 
0.184125E+01 
0.617671E+03 
0 % 106322E+03 
0. 

Ob 444244E + 02 
0.833333E+00 
0. 

0. 

0.161219E+01 
0.161140E+01 
Ob 161140E+01 

0. 

0.651605E+00 

Ob 184125E+01 

0. 

Ob 184125E+01 
Ob 184125E+01 
0.204855E-01 
Ob 172717E+04 
0* 100000E+01 
0*464873E+04 
0.604097E+03 

0* 160788E+01 
0.100000E+01 
0.192690E+03 
0* 400004E+03 
Ob 101193E+01 
Ob 200002E+03 

0b242141E+04 
Ob 104874E+01 
ObIOOOOOE+OI 
Ob 104874E+01 
ObIOOOOOE+OI 
0, 


0. 

0o600000E+03 

0.200002E+03 

0.308026E+02 

0. 

0.100265E+01 

0.3536016+04 

0.349866E+04 

0.313699E+01 

0. 

0.549668E+03 
0. 131143E+04 
0.190038E+04 
0. 

0.600000E+03 

0.200002E+03 

0. 

0. 

0.1000006+03 

0. 

0. 

0.6126B7E+03 
0.612687E+03 
Ob 612687E + 03 
0. 

0.564699E+03 

0.612687E+03 
0.199997E+03 
0» 17431 2E+04 
0.174312E+04 
0. 

0.234590E+01 
Ob 149533E+04 
0.182498E+04 
0.682856E-02 

0-256000E+04 

0.157143E+01 

0. 

0.9523816+00 

0. 


0.238596E+01 

0.709440E+03 

0.200002E+03 

0. 

0. 

0.197642E+01 


0.100000E+01 

0.100000E+01 

0.103400E+01 

0.500000E-01 

0 B 

0.102013E+01 

0.500000E-01 

0. 

0.313699E+01 

0. 

0.100000E+01 
0. 1600006+02 
0.362240E+01 
0. 

0.200002E+03 
0.983000E+00 
0. 204099E+03 
0.204099E+03 
0.814332E+00 
0. 

0.319790E+03 
0.140000E+01 
0. 133000E+01 
0. 133000E+01 
0.500000E-01 
0. 100000E+01 

0.133000E+01 

0. 

0.243558E+01 

0.2435586+01 

0. 

0.472361E+03 
0.132498 E+01 
0.115769E+05 
0.259300E+05 

0.152000E+02 

0.870000E+00 

0. 

0.988636E+00 

0.125449E+01 


0.100000E+01 

0.1697506+03 

0.985000E+00 

O.OOOOOOE-38 

0. 

0. 229393E+01 


O.IOCOOOE+Ol 

0.100000E+01 

0.102685E+01 

0.100000E+01 

0. 

0 .1361086+01 
0. 

0. 

0.375089E+01 

0. 

0.131340E+03 
0.319790E+03 
0 .488488E+03 
0. 

0.204099E+03 
0 .500000E-01 
0.204855E-01 
0.204855E-01 
0 .929312E+02 
0, 

0 . 

0.146452E+03 
0.146451E+03 
0.146451E+03 
0.499987E+00 
0 .7592456+03 

0,14645 1E+03 
0.100000E+01 
0.444066E+03 
0.444066E+03 
0 .4723656+03 
0 .2302666+00 
0.185277E+04 
0. 

0.259300E+05 

0 ,68 1178E+03 
0.310535E+03 
0.100000E+03 
0.103512E+01 
0.310535E+03 


0.119237E+04 
0 .198000E+01 
0.730087E+04 

0. 

0.259300E+05 

0. 


0. lOOOCOE + Ol 
0,1029456+01 
0.120480E+01 
0.9830006+00 
C ,5496686+03 
0. 709440E+03 
0. 

0, 

0. 3750 89E+01 

0 . 

0.160493 E+01 
C. 162873E+01 
0 « 183 841 E + 0 1 

0 . 

0.204855E-01 

0. 

0 . 1149 70E+04 
0. 

0.409714E+01 

C. 

0. 

0.160788E+01 
0. 161 140E+01 
0 .161 140E+01 
0. 

0.651605E+00 

0. 161 140E+01 
0. 

0. 1841 25E+01 
0.184125E+01 

0. 

0 . 

0 . lOOOCOE+Ol 
0.215740E+04 
0. 568827 E+00 

0.182692E+01 
0. 500000E+02 
0.833333E+00 
0.120000 E+03 
0. 400004E+03 


0.709440 E+03 
0.591600 E+03 
0.246082E+03 

0. 

0. 5000C0E+00 

0. 


$D(1),AM=.6,ALTP=25000,IAMTP*0,T4=2260,* RUN AT ALTITUDE AT REDUCED T4-ST0 DAY 
OUTPUT AM* 0.600 AL TP* 25000. T4= 2260.00 ETAR* 1.0000 


MIDDLE AND COMPRESSUR SPOOLS ARE ATTACHED , USE MIDDLE AND OUTER TURBINES 


PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 

,9440386+02 

0, 103131E+01 

0.782864E+00 

0. 140127E+O1 

0. 653913E+0 3 

0.328512E+03 

PCN I 

CNI 

ZI 

PRI 

WACI 

WAI 

.936838E+02 

0.102152E+01 

0.845932E+00 

0. 160711E+01 

0.319862E+03 

0. 21287 6E+0 3 

PCNC 

CNC 

ZC 

PRC 

WACC 

MAC 

,87061 5E+02 

0. 944101E+00 

0.8277286+00 

0. 758119E+01 

0.109122E+03 

0. 107869 E+0 3 

T 2 

P2 

T22 

P22 

T21 

P21 

,46057 3E +0 3 

0. 473409E+00 

0.515320E+03 

0.663373E+00 

0.603297E+03 

0. 10661 1E+01 

T3 

P 3 

PCBLF 

BLF 

PCBLC 

BLC 

1 1 3799E+04 

0.808241E+01 

0, 

0. 

0. 

0. 

PC8LHP 

BLHP 

PCBLIP 

BLIP 

PCBLLP 

BLLP 


0. 

0. 

0. 

0. 

0. 

W A3 

WFB 

WG4 

FAR4 

T4 

P4 


0. 10786 9E+03 0.191696E+01 0.1097866+03 0.177712E-01 0.226000E+04 0.768049E+C1 

TFFHP CNHP DHTCHP DHTC T50 P50 


0, 0. 0. 0. 0. 226000E+04 0.768049E+01 

TFFIP CNIP DHTCIP DHT I T5 P5 

0.462394E+02 0.197065E+01 0.600370E-01 0.169863E+03 0.166333E+04 0.182027E+01 

TFFLP CNLP DHTCLP DHTF T55 P55 

0.167379E+03 0.231473E+01 0.173050E-01 0,3918846+02 0.152052E+04 0.121897E+01 

E TAB PCBLDU ETAD DPDUC T24 P24 

0.98300CE+00 0, 0. 0.559541E-01 0.515320E+03 0.626255E+00 

WAD WFD WG24 FAR 24 T 25 P25 

0.1156376+03 0. 0.115637E+03 0. 0.515320E+03 0.626255E+0C 

ETAF ETAI ETAC ETATHP ETATIP ETATLP 

0, 85125 5E+0C 0.850116E+00 0.861725E+00 0. 0.899548E+00 0.899818E+C0 

T 6 P6 PS6 AM6 V6 WG6 
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O. 1 52052E + 04 

0. 121 897E+01 

0. 117572E+01 

0» 237976E+00 

0. 442 765E + 03 

0. 109 78 6E+ 03 

T 7 

WF A 

WG7 

FAR7 

ETAA 

DPAFT 

G. 1 52052E+04 

0. 

0.1 09786E+03 

0.177 7 12 E-01 

0. 

0. 

PS3 

AM8 

V 8 

PS9 

AM9 

V 9 

0*660433E+00 

0.100000E+01 

0.173406E+04 

0. 660433E+00 

0. 1 OOOOOE+O 1 

0.173406E+C4 

P S 28 

AM28 

V28 

PS29 

AM29 

V29 

0.3 7 1097E+00 

0. 899 1 1 6E+0Q 

0. 928506E+03 

0.371 092 E + 00 

0.899116E+00 

0.928506E+03 

BPRINT 

DPCOM 

DPWING 

PS38 

AM38 

V38 

0.973473E+00 

0.497287E-01 

0.999108E-01 

0. 507217E+00 

0.100000E+01 

0. 109955E+C4 

BYPASS 

HPEXT 

WF T 

WGT 

VA 

FRO 

0.54321 1E+00 

0. 

0. 1 91696E+01 

0.330429E+03 

0.609938E+03 

0, 62277 6E+04 

PCBLI 

WG37 

VJW 

PS39 

AM39 

V39 

0.49327 9E+00 

0. 105007E +03 

0* 1 08306E+04 

0* 507217E+00 

0* 100000E+0 1 

0. 109955E+04 

CVOWNG 

FGMWNG 

FGPWNG 

FNWING 

FNMAIN 

P28 

0.985CO0E+OO 

0.353481E+04 

0.687321E+03 

0. 223 146E+04 

0.679908E+04 

0.62625 5 E + 0 0 

FFOVFM 

FWOVFN 

FCOVFN 

FMNOFN 

FNOVFD 

P38 

0. 12124 5E +00 

0.247102E+00 

0. 631 653E+00 

0, 752898E + 00 

0. 348 266E + 0 0 

0* 959598 E + 0 C 

CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

0.9 85000E + 00 

0. 170805E+04 

0 . 985000E+00 

0.914579E+03 

0 » 1 26502E+0 5 

0.260813E+04 

MAIN SCNIC CONVERGENT NOZZLE 

FG= 15258.30 


FN= 9030,54 


SFC= 0.76415 


OUCT SUBSONIC CONVERG* NOZZLE 
CONVERGED AFTER 21 LOOPS 


$D( 1 ) , I DES= 1 • * NOW GOING TO RUN 3 SPOOL, 2 STREAM ENGINE (FIGURE 4) 

$D( 1) ,FIXMIDDLET0C0MP=.F.,PCBLID$=0 t AM=0,ALTP=0,I AMTP=2 , T2=31 ♦ IDE S=1 ,PCNCDS=100, 


FAN DESIGN 


PRFCF= 

0. lOOQOOOOE+Ol 

ETAFCF= 

0. 1000000QE+01 

WAFCF- 

0 . 102945 10 E + 01 

T20S= 

0. 549 66 81 9E + 03 

MIDDLE SPOOL 

DESIGN 

PR ICF = 

0.95238095E+00 

E T A ICF = 

0. 98863635 E+00 

WA I C F = 

0 » 1035 1 1 61 E + 01 

T22DS= 

0, 61 268656E+03 

COMPRESSOR DESIGN 

P RCCF = 

0. 89610390E+00 

ETACCF= 

0, 10000000E+01 

WACCF= 

0.21264453E+01 

T21DS* 

0. 709 439 5 BE + 03 

COMBUSTOR DESIGN 

WA 3CDS = 

0. 61605297E+02 

ETABCF= 

0 • 98 300 000 E+00 

DTCOCF= 

0.10000000 E+01 



H.P. TURBINE 

DESIGN 

CNHPCF = 

0.10119289E+01 

TFHPCF= 

0, 54078169E+00 

ETHPCF= 

0 .10000000 E+01 

DHHPCF* 

0. 95 7214C5E + 00 

I.P. TURBINE 

DESIGN 

CN I PCF= 

0.99843589E+00 

TF I PCF= 

0.50750092E+00 

ETI PCF= 

0.10000000 E+01 

OHIPCF- 

0 o 503 85 109E+00 

L.P. TURBINE 

DESIGN 

CNLPCF= 

0. 10235123E+01 

TFLPCF= 

0. 46674602 E+00 

ETL PCF = 

0. 10201339E+01 

DHLPCF* 

0.653C7859E+00 

DUCT NOZZLE 

DESIGN 

A28 = 

0. 3 7 50893 5E+ 01 

AM28= 

0.65160510E+00 

A29= 

0.375089 35 E+01 

AM29* 

0.651 60 51 OE +00 

TURBINE AREA 

DESIGN 

A55 = 

0. U109352E+02 

AM55 = 

0.23826426E+00 





NOZZLE DESIGN 

A8 = 

0. 4 340 349 5E +01 

AM8= 

0. 10000000E+01 

A9= 

0.4340 3495 E+01 

AM9=* 

0. lOCCCOOOE+Ol 

OUTPUT 


AM= 0. 

ALTP = 

= 0 . 

T 4= 2560.00 



ETAR= 1.0000 

THREE SPOOL 

ENGINE 









NO AIRFLOW I 

NTO WING 










PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 

0. 100000E+03 

0* 100000E+01 

0* 833333E+00 

0. 140000 E+0 1 

0.6 17671E+03 

0. 600 OOOE+O 3 

PCN I 

CNI 

ZI 

PRI 

WACI 

WAI 

0.1 OOOOOE +0 3 

0. 100000E+01 

0.8 33333E + 00 

0. 157 143E+01 

0. 310 535E+03 

0. 400004E+ 03 

PCNC 

CNC 

ZC 

PRC 

W ACC 

WAC 

0.1 0000CE+O3 

0.100000E+01 

0 , 8 14332E+00 

0.727 273 E+01 

0 .2 12645E+0 3 

0*400004 E + 03 

T 2 

P2 

T 22 

P22 

T 21 

P21 

0,54966 8E+03 

0. 100000E+01 

0 • 612687E +03 

0. 140000E+01 

0 • 709440E+03 

0. 22000CE+0 1 

T 3 

P3 

PCBLF 

BLF 

PCBLC 

BLC 

0.131 143E+04 

0. 160000E+02 

0 . 

0 . 

0 . 

0 . 

PCBLHP 

BLHP 

PCBLIP 

BLIP 

PCBLLP 

BLLP 

0 . 

0 . 

0 . 

0 . 

0 . 

0 , 

W A3 

WFB 

WG4 

FAR4 

T 4 

P4 

0.400004E+03 

0. 819427E+01 

O.4O8190E+O3 

0. 204855 E-01 

0.256 000E + 04 

0, 152000E+ 02 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T50 

P50 

0.924587E+02 

0.1 97642E+0 1 

0.600000E-01 

0.147 02 8E +03 

0. 205966E + 04 

0.53312CE+C1 

TFFIP 

CNIP 

DHTCIP 

DHTI 

T 5 

P5 

0.236453E+03 

0 • 220345E+0 1 

0.220000E-01 

0. 228 307E+02 

0.19B030E+04 

0.443787E+01 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 

0.278524E+03 

0. 224716E+01 

0. 1 71750E-01 

0. 222 122E+02 

0.1 90256E+0 A 

0* 368588E+01 

ETAB 

PCBLDU 

ETAD 

DPDUC 

T 24 

P24 

0.983000E+00 

0 . 

0. 

0. 500000E-01 

0.612687E+03 

0. 133000E+01 

WAD 

WFO 

WG24 

FAR24 

T25 

P25 

0*1 99997E+03 

0 . 

0.1 99997E+03 

0 . 

0.612687E+03 

0. 13300CE+0 1 

ETAF 

ETAI 

ETAC 

ETATHP 

ETATIP 

ETATLP 

0. 8 80000E+00 

0. 870000E+00 

0* 860000E+00 

0. 900000E+00 

0.900000E+00 

0.900000E+00 

T 6 

P6 

PS6 

AM6 

V6 

WG6 

0. 1 90256E +04 

0. 368588E+01 

0. 35512 1E+01 

0. 2 38 264E + 00 

0.492279E+03 

0.408198E+03 

T 7 

WF A 

WG7 

FAR 7 

ETAA 

DPAFT 

0. 1 90256E+04 

0 . 

0 , 408 198E+03 

0. 204855E-01 

0 . 

0 . 

PS8 

AM8 

V8 

PS9 

AM9 

V9 
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0.20096 1E+0 1 

0.1000006+01 

0. 193326E+04 

0. 20096 1 E+01 

0. 100000E+0 1 

0. 193326E+04 

PS28 

AM28 

V28 

PS29 

AM29 

V29 

0. 1 OOOOOE+O 1 

0. 651605E+00 

0. 759245E+03 

0.1000006+01 

0*651 605E+0C 

0.759245E+G3 

SPRINT 

DPCOM 

DPWING 

PS38 

AM38 

V38 

0. 

0. 500000E-01 

0. 

0. 

0. 

0. 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRO 

0.499987E+00 

0. 

0.819427E+01 

0. 608 194E+03 

0. 

0. 

PCBLI 

WG37 

VJW 

PS39 

AM39 

V39 

0. 14901 2E-07 

0. 

0. 

0. 

0. 

0. 

CVDWNG 

FGMWNG 

FGPWNG 

FNHING 

FNMA I N 

P28 

0. 98500 OE+OO 

0. 

0. 

0. 

0.3808186+05 

0. 13300C E + Cl 

FFOVFN 

FWOVFN 

FCOVFN 

FMNOFN 

FNOVFD 

P38 

0.122072E+00 

0. 

0.877928E+00 

0.1000006+01 

0. 100000E+0 1 

0. 

CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

0.985000E+00 

0. 190426E + 04 

0.985000E+00 

0. 7478566+03 

0.2880846+05 

0*9273426+04 

NOZZLE 

FG= 38081.84 


FM= 38081.84 


SFC- 0.77463 


DUCT SUBSONIC CONVERG. NOZZLE 
CONVERGED AFTER 1 LOOPS 


COMMON 


0.833333E+00 0.100000E+03 


0.833333E+00 0.100000E+03 


0*8X43326+00 


0 *1000006+03 


C. 256000E+04 0 


0* XCOOOOE +03 
0 • 8333 33E+00 
0*8 143 32E+00 
0* 256000E+04 
0. 500000E+02 
0* X30000E+03 
0 . 

0. 

0* 1 11094E+02 
0.355X2XE+01 


0* 100000E+03 
0* 100000E+03 
0* 100000E+03 
0* 

0.200000E+01 

0.230000E+01 

0. 

0. 

0 . 

0.238264E+00 


0.256000E+04 
0* 140000E+01 
0.727273E+01 
0 . 124857E+04 
0.900000E+00 
0.900000E+00 
0. 

0. 

0* 1 11094E+02 
0.98500QE+00 


0* 100000E+03 
0* 880000E+00 
0* 860000E+00 
0* 983000E+00 
0* 540782E+00 
0*4667466+00 
0. 

0. 

0* X11094E+02 
0.985000E+00 


0. 

0.600000E+03 
0.400004E+03 
0.616053E+02 
0* 10X193E+01 
0* 10235 1E+01 
0* 353601E+04 
0*4830576+04 
0* 434035E+01 
0, 


0* 100000E+01 
0.100000E+01 
0.896104E+00 
0.500000E-01 
0.100000E+01 
0.102013E+01 
0.500000E-01 
0. 

0.434035E+01 

0. 


O.IOOOOOE+OX 

oaoooooE+oi 

O.XOOOOOE+OX 
0 • lOOOOOE+OX 
0.957214E+00 
0 *65 3079E+00 

0. 

0. 

0.375089E+01 

0. 


0*1000006+01 
Q • 102945 E+01 
0.212645E+01 
0.983000E+00 
0 * 549668E+03 
0.7094406+03 
0 . 

0. 

0.375089 E+01 

0. 


0* 549670E +03 
0.709440E+03 
0*2 56000E + 04 
0.190256E+04 
0* 100000E +01 
0.1C0000E+01 
0.2C0000E+01 
0.230000E+01 
0* 

0.5C0000E+02 


0* 100000E +01 
0.220000E+01 
0 • 152000E+02 
0. 368588E+01 
0* 140000E +01 
0* 727273E + 01 
0 *9000006 + 00 
0* 900000E + 00 
0. 

0 • 130000E+03 


0* 131340E+03 
0.169750E+03 
0.6811786+03 
0.489107E+03 
0* 880000E+00 
0.860000E+00 
0.574328E-01 
0* 1 12166E-01 
0 • 100000E+01 
0. 


0* 160493E+01 
0* 161219E+01 
0.182692E+01 
0* 1837546+01 
0. 617671E+03 
0*2126456+03 
0.147028E+03 
0* 222122E+02 
0* 833333E+00 
0. 


0.549668E+03 
0. 1311436+04 
0.198030E+04 
0. 

0* 600000E+03 
0.4000046+03 

0. 

0 • 

0.100000E+03 

0. 


0. 100000E+01 
0* 160000E+02 
0*4437876+01 
0. 

0.400004E+03 
0.983000E+00 
0*408198 E+03 
0. 408198E+03 
0.8143326+00 
0. 


0*1313406+03 
0.319790E+03 
0*51 1319E+03 
0, 

0.408198E+03 
0 *5000006-01 
0*2048556-01 
0.204855E-01 
0.100000E+03 
0. 


0.160493E+01 
0 *162 873E+01 
0. 183624E+01 
0. 

0.204855E-01 

0. 

0. 1149 70E+04 
C. 

0.819427 E+01 

0. 


O.iCOOOOE+Ol 
0. 709440E +03 
0* 612687E +03 
0.6126876+03 
0.199997E+03 
0.564699E+03 

0.190256E+04 
0. 8194276+01 
0.190256E+04 
0.190256E+04 
0*408 198E+03 
0.355121E+01 
0.163715E+04 
0. 

0.268084E+05 


0* 600000E + 03 
0* 220000E +01 
0.1330006+01 
0. 133000E+01 

0. 

0* 100000E +01 

0.368588 E+01 
0.408198E+03 
0* 368588E + 01 
0. 368588E+01 

0. 

0.492279E+03 

0.2009616+01 

0. 

0.927342E+04 


0.400004E+03 
0*1697506+03 
0* 146451E+03 
0. 146451E+03 
0 • 199997E+03 
0.759245E+03 

0.489107E+03 
0 • 204855E-01 
0.489107E+03 
0.489106E+03 
0 .4081986+03 
0.238264E+00 
0.193326E+04 
0 * 747856E+03 
0.819427E+01 


0. 

0.161219E+01 
0. 161140E+01 
0.161140E+01 

0. 

0* 651605E+00 

0. 183754E+01 

0. 

0.183754E+01 
0. 183754E+01 
0.2048556-01 
0, 188551E+04 
0.100000E+01 
0.464873E+04 
0. 608194E+03 


0* 

0.612687E+03 

0.612687E+03 

0.612687E+03 

0. 

0.564699E+03 

0.612687E+03 

0.199997E+03 

0.190256E+04 

0.190256E+04 

0. 

0.3550926+01 
0.163715E+04 
0.190426E+04 
0. 136571E-01 


0.319790E+03 
0.140000E+01 
0 • 133000E+0 1 
0* 133000E+01 
0. 500000E-01 
0.100000E+01 

0. 133000E+01 

O. 

0.368588E+01 
0. 368588E+01 

0. 

0. 492274E+03 
0.200961E+01 
0.241597E+05 
0.380818E+05 


0. 

0.146452E+03 

0.146451E+03 

0.146451E+03 

0.499987E+00 

0.759245E+03 

0 .1464516+03 
0.100000E+01 
0.489106E+03 
0.489106E+03 
0. 4922796+03 
0.2382646+00 
0.1933266+04 
0. 

0.3808186+05 


0. 

0*1607886+01 
0.161140 E+01 
C.161140E+01 

0. 

0. 651605 E+00 

0.161140E+01 

0. 

0.1837546+01 
0. 183754E+01 

C. 

0. 

0 « 1000G0E + 01 
0.927342E+04 
0.774631E+00 


0.612687E+03 
0.4C00046 +03 
0.220000E+01 
0.1C00006+03 
0.2200006+01 
0.149012E-07 


0.1400006+01 
0. 833333 E+00 
0.900000E+00 
0. 157143E +01 
0.900000E+00 
0. 


0.1464526+03 
0 • 100000E+03 
0.110847E-01 
0.870000E+00 
0.507501E+00 
0.612687E+03 


0, 160788E+01 
0. lQOOOOE+Ol 
0. 2283076+02 
0. 400004E+03 
0. 998436E+00 
0. 400004E+03 


0. 205966E+04 
0.157143E+01 
0. 

0.952381E+00 

0. 


0. 5331206+01 
0. 870000E+00 

0* 

0.988636E+00 

0.503851E+00 


0.534150E+03 

0.310535E+03 

0.1000006+03 

0.103512E+01 

0.310535E+03 


0 .1834966+01 
0. 1200C06+03 
0 .833333E+00 
0.120000E+03 
0.400004E+03 


0.381470E-05 

0. 

0. 

0. 

0. 122072E+00 
0.9245 37E +02 


0. 1000006+00 
0. 

0. 

0.3808186+05 
0. 877928E+00 
0. 236453E+03 


0. 

0. 

0. 

0. 

0 ■ 100000E + 01 
0.278524E+03 


0. 

0. 

0. 

0. 

0.100000E+01 

0. 1976426+01 


0. 

0. 

0. 

0. 

0. 

0. 220345E+01 


0. 

0. 

0 « 985000E+00 

0. 

0. 

0.2247166+01 


0. 

0. 

0. 

0. 

0.380818E+05 
0 .6000006-01 


0. 

0. 

C. 

0. 

0. 

0. 147028E+03 
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$D(1 ) ,AM=.6,ALTP*25000, I AMTP=0, T4=2260, * RUN AT ALTITUDE AT REDUCED T4-STD DAY 
OUTPUT AM* 0.600 AL TP* 25000. T4= 2260.00 E TAR = 1.0000 

THREE SPOOL ENGINE 
NO AIRFLOW INTO WING 


PCNF 

CNF 

L F 

PRF 

WAFC 

WAF 

0.944120E +02 

0.103140E+01 

0. 775L04E +00 

0. 1 39 736E+0 1 

0.6 54868E + 03 

0. 328992 E+03 

PCNI 

CNI 

ZI 

PRI 

WACI 

WAI 

0.936826E+02 

0.102192E+01 

0 • 821694E+00 

0. 159Q21E+01 

0. 321998E+0 3 

0.213788E+03 

pcnc 

CNC 

zc 

PRC 

WACC 

WAC 

0.9 3457 3E +02 

0.101581E+01 

0.831314E+00 

0.761931E+01 

0. 218983E+0 3 

0. 214090E+0 3 

T 2 

P2 

T22 

P22 

T21 

P21 

0.46057 3E+03 

0.473409E+00 

0.5 14897E+03 

0. 661 525 E+00 

0.600508E+0 3 

0. 105 196 E+01 

T 3 

P3 

PCBLF 

BLF 

PCBLC 

BLC 

0.1 1386 LE+04 

0. 801523E+01 

0. 

0. 

0. 

0. 

PCBLHP 

BLHP 

PCBLIP 

BLIP 

PCBLLP 

BLLP 

0. 

0. 

0. 

0. 

0. 

0. 

WA3 

WFB 

WG4 

FAR4 

T 4 

P4 

0*21 4090E +03 

0. 380269E+01 

0. 21 7893E+03 

0. 177621E— 01 

0.226000E+04 

0 • 761627 E+0 L 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T50 

P50 

0.925457E+02 

0.1 96589E+01 

0.605788E-01 

0. 129798E+03 

0. 180704E+0 4 

0* 265 52 2 E + 0 1 

TFFIP 

CNIP 

DHTCIP 

DHTI 

T5 

P5 

0.237371E+03 

0.220382E+01 

0.223231E-01 

0. 201 260E+02 

0.173511E+04 

0. 220700 E+0 1 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 

0.27983 7E+03 

0.226654E+01 

0.173347E-01 

0.1962116+02 

0.1664476+04 

0. 18299 3 E+01 

ETAB 

PCBLDU 

ETAD 

DPDUC 

T24 

P24 

0.98 3000E +00 

0 . 

0 . 

0. 55731 IE-01 

0. 514897E+0 3 

0 • 624657 E+00 

WAD 

WFD 

WG24 

FAR 24 

T 25 

P25 

0.1 1490 2E+03 

0 . 

0. 1 14902E+03 

0 . 

0.5 148976+0 3 

0. 62465 7E+00 

ETAF 

ETA I 

ETAC 

ETATHP 

ETATIP 

ETATLP 

0.850443E+00 

0. 852141E+00 

0. 855233E+00 

0. 898 165E+00 

0.897880E+00 

0. 900068E+0C 

T 6 

P6 

PS6 

AM6 

V6 

WG6 

0. 1 66447E+04 

0.182993E+01 

0 • 176503E +01 

0.238 501 E+00 

0. 46302 2E + 0 3 

0.217893E+03 

T7 

WFA 

WG7 

FAR7 

ETAA 

DPAFT 

0. 1 66447E+04 

0. 

0* 21 7893E+03 

0.177621E-01 

0 . 

0 . 

P S 8 

AM8 

V8 

PS9 

AM9 

V9 

0.995600E+00 

0.100000E+01 

0. 181211E+04 

0. 995600E+00 

0.1000006+01 

0. 18121 1E+04 

PS28 

AM28 

V28 

PS29 

AM2 9 

V29 

0. 37 1092E+00 

0.893783E+00 

0.923390E+03 

0.371 092E+00 

0. 893 78 3E+00 

0. 92339CE+03 

8PRINT 

DPCOM 

DPWING 

PS38 

AM38 

V38 

0 . 

0. 497761 E-01 

0 . 

0 . 

0 . 

0 . 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRO 

0.538869E+00 

0 . 

0.380269E+01 

0. 332 795E+03 

0. 609938E+0 3 

0.623685 E+04 

PCBLI 

WG37 

VJW 

PS39 

AM39 

V39 

•0.141260E-02 

0 . 

0 . 

0 . 

0 . 

0 . 

CVDWNG 

FGMWNG 

FGPWNG 

FNWING 

FNMAIN 

P28 

0.985000E+00 

0 . 

0 . 

0 . 

0.148299E+05 

0.62465 7 E+00 

FFOVFN 

F WOVEN 

FCOVFN 

FMNOFN 

FNOVFD 

P38 

0.72 1207E-01 

0 . 

0. 927493E+00 

0. 999614E+00 

0. 389572E+00 

0 . 

CVMNOZ 

VJM 

CVDNOZ 

VJO 

FGM 

FGP 

0.985000E+00 

0.178492E+04 

0. 985000E+00 

0. 909539E+03 

0. 153363E+0 5 

0. 57361 8 E+04 


PAIN SCNIC CONVERGENT NOZZLE FG= 21072. 47 FN= 14835.61 SFC= 0.92276 

DUCT SUBSONIC CDNVEKG. NOZZLE 

CONVERGED AFTER <^4 LOOPS 


tDm f IDES = l,* NOW GOING TO RUN 2 SPOOL-2 STREAM ENGINE (NORMAL TURBOFAN) 
tom ,IDES=1, AM=0,ALTP*0, 1AMT P=2 » T2*31 , DUMMYSPOQL* . T. ,* (FIGURE 5) (PCBLIDS=0) 

P RCDS = 1 6/1.4* * KEEP OVERALL PRESSURE RATIO THE SAME 

FAN DESIGN PRFCF= 0. 10000000E+01 ETAFCF* 0.100000006+01 WAFCF= 0 . 102945 10E+01 T2DS* 0. 549 66 8 1 9E+03 

MIDDLE SPOOL DESIGN PRICF= 0. 10000000E+01 ETAICF* 0. lOOOOOOOE+O 1 WAICF* 0 . 10000000 E +01 T22DS* 0, 61 2 686 E6E+03 

COMPRESSOR DESIGN PRCCF= 0. 14897959E+01 ETACCF* 0. LOOOOOOOE+O 1 WACCF= 0. 31053487E+01 T2 IDS* 0. 6 1 2 68 65 6E+03 

COMBUSTOR DESIGN WA3CDS= 0. 61393844E+02 E TABCF* 0. 98300000E + 00 DTCOCF* 0. 10000000E+01 

H.P. TURR ( NE OESIGN CNHPCF= 0. 101 19289E+01 TFHPCF* 0. 54070825E+00 ETHPCF* 0. 10000000 E+01 DHHPCF* 0. 109C9047E+01 

L.P. TURBINE DESIGN CNLPCF* 0. 102561 50E+01 TFLPCF* 0. 47233292E + 00 ETL PCF = 0. 10201339E + 01 DHLPCF* 0. 650 3 15 19E+0C 

DUCT NOZZLE DESIGN A28= 0. 37508928E+01 AM28* 0. 651 605 10E+00 A29* 0. 37508928 E+01 AM29= 0.65 160 510E+00 

TURBINE ARFA DESIGN A55= 0. 10971928E+02 AM55* 0. 23826411E+00 

NOZZLE DESIGN A8= 0, 42865705E+01 AM8= 0, 10000000E+01 A9* 0 . 42865705E+01 AM9= 0. 1OCCCCOCE+01 

OUTPUT AM* 0. AL TP* 0. T4= 2560.00 E TAR = 1.0000 


MIDDLE SPOOL IS DUMMY 
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NO AIRFLOW INTO WING 


PCNF 

CNF 

ZF 

PRF 

W AFC 

WAF 

0« l 000Q0E+03 

0* lOOOOOE+Oi 

0. 833333E+00 

0. 1400006+01 

0.61767 1 E + 0 3 

0.60000C6+C3 

PCNI 

CNI 

LI 

PRI 

WACI 

WAI 

O. I OCOOOE+O 1 

0. 

0.571429E+00 

0 . 100000E+01 

0.310535E+03 

0.400004E+C3 

PCNC 

CNC 

ZC 

pr: 

WACC 

WAC 

0.100000E+03 

0* lOOOOOE+Oi 

0.8143326+00 

0.1142866+02 

0 .3 10535E+0 3 

0.400004 E + 0 2 

T 2 

P2 

T22 

P22 

T21 

P21 

0*5 49668E +03 

0* 100000E+01 

0.6126876+03 

0. 140000E+0! 

0.612687E+03 

0 • 140000 £+ 01 

T 3 

P3 

PCBLF 

BLF 

PCBLC 

8LC 

0.130245E+04 

0* 160000E+02 

0. 

0. 

0 . 

0. 

PC8LHP 

BLHP 

PCBLI P 

BLI P 

PCBLLP 

BLLP 

0. 

0. 

0. 

0. 

0 . 

0. 

W A3 

WFB 

WG4 

FAR4 

T 4 

P4 

0.400004E+03 

0.824969E+01 

0.408253E+03 

0.206240E-01 

0.256000E+04 

0. 152000 E+ 02 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T50 

P50 

0.924713E+02 

0.197642E+01 

0.600000E-01 

0. 167563E+03 

0.198844E+04 

0 » 45008 2 E + 0 1 

TFFIP 

CNIP 

DHTCIP 

DHTI 

T5 

P 5 

0. 

0. 

0. 

0. 

0. 198844E+04 

0 .450082 E + 0 1 

TFFLP 

CNLP 

OHTCLP 

DHTF 

T55 

P55 

0.275230E+03 

0.224256E+01 

0.171750E-01 

0. 2220926+02 

0.191079E+04 

0.374119E+01 

ETAB 

PCBLDU 

ETAD 

DPDUC 

T24 

P24 

0.983Q00E+0Q 

0* 

0. 

0.500000E-01 

0.612687E+03 

0. 13300CE+0 I 

WAD 

WFD 

WG24 

FAR24 

T25 

P25 

0.199996E+03 

0* 

0.1999966+03 

0. 

0.6126876+03 

0. 13300C E+0 1 

ETAF 

ETAI 

ETAC 

ETATHP 

ETATIP 

ETATLP 

0.88CC00E+00 

0.1000006+0 1 

0.860000E+00 

0. 9000006+00 

0 . 

0* 900000E + CC 

T 6 

P6 

PS6 

AM6 

V 6 

WG6 

0*19 1079E +04 

0* 374119E+01 

0.3604546+01 

0. 238264E+00 

0* 493269E+0 3 

0. 408253E+ C3 

T7 

WFA 

WG7 

FAR7 

ETAA 

DP AFT 

0.191079E+04 

0. 

0.408253E+03 

0.2062406-01 

0. 

0. 

PS8 

AM8 

V8 

PS9 

AM9 

V9 

0.204005E+01 

0.100000E+01 

0.193729E+04 

0. 204005E+01 

0.1000006+01 

0. 193729E+ 04 

PS28 

AM28 

V28 

PS29 

AM29 

V29 

0* 1000006+0 1 

0®651605E+00 

0.759245E+03 

0.100000E+01 

0. 651605E+0C 

0* 759245E+C3 

BPRINT 

OPCOM 

DPWING 

PS3 8 

AM38 

V38 

0. 

0.500000E-01 

0. 

0. 

0. 

0. 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRD 

0.499987E+00 

0. 

0.824969E+01 

0.6082506+03 

0 . 

0 . 

PCBLI 

WG37 

VJW 

PS39 

AM39 

V39 

-0. 

0. 

0 . 

0* 

0 , 

0 . 

CVDWNG 

FGMWNG 

FGPWNG 

FNWING 

FNMA IN 

P28 

0.985000E+00 

0* 

0 4 

0. 

0.382967E+05 

0. 13300CE + 0 1 

FFOVFN 

FWOVFN 

FCOVFN 

FMNOFN 

FNOVFD 

P38 

0.12138 7E +00 

0* 

0.878613E+00 

0® 100000E+01 

0. 100000E+0 1 

0 . 

CVHNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

0. 98500 QE+OO 

0.190823E+04 

0® 985000E + 00 

0.747856E+03 

0.288621E+05 

0. 94345 9 E + 04 

MAIN SCNIC CONVERGENT NOZZLE 

FG= 38296.70 


FN= 38296.70 


SFC= 0.77549 


DUCT SUBSONIC CONVERG. NOZZLE 
CONVERGED AFTER 1 LOOPS 


COMMON 

0. 833333E+00 

0 * 1000Q0E+03 

0.57 1429E+00 

0.100000E+01 

0.814332E+00 

0.100000E+03 

0 • 256000E+04 

0 . 1C0000E +03 

0. 100000E + 03 

0.256000E+04 

0* 100000E + 03 

0. 

0.1000006+01 

0. lOOOOOE+Oi 

0 • 1000C0E + 0 1 

0.833333E +00 

0. 100000E +03 

0.140000E+01 

0. 880000E+00 

0.600000E+03 

0.1000006+01 

0.1000006+01 

(.1029456+01 

0.8143 32E + 00 

0. 100000E + 03 

0 . 1 14286E+02 

0. 860000E+00 

0.4000046+03 

0. 148980E+01 

0.100000E+01 

0.^10 535E+01 

0. 256000E +04 

0. 

0. 125755E + 04 

0.983000E+00 

0.613938E+02 

0. 5000006-01 

0 • lOOOOOE + Oi 

0 • 9830COE+00 

0. 5C0000E +02 

0. 200000E +01 

0 . 900GQ0E + 00 

0. 540708E+00 

0.101 193E+01 

0.100000E+01 

0 • 1090906 + 01 

0 • 549668E+03 

0.1 30Q00E +03 

0.230000E+01 

0.900000E+00 

0.472333E+00 

0® 1025S1E+01 

0. 10201 3E+01 

0.650315E+00 

0 .6126876+03 

0. 

0. 

Oe 

0. 

0.353601E+04 

0.500000E-01 

0. 

C. 

0. 

0. 

0. 

0. 

0.477008E+04 

0. 

0. 

0. 

0.109719E+02 

0. 

0.109719E+02 

0. 1G9719E+02 

0. 42865 7E+ 01 

0. 428657E+01 

0.375089E+01 

0.375089 E+01 

0. 3604546 +01 

0.238264E+00 

0.985000E+00 

0*9850006+00 

0. 

0. 

0. 

0. 

0. 5496 70E +03 

0® 100000 E + 01 

0. 1 31340E +03 

0® 160493E + 01 

0. 549668E+ 03 

0. 100000E + 01 

0.1 3 1340E+03 

C. 160493 E+01 

0.6126*76+03 

0. 140000 E +01 

0.146452E+03 

0.160788E+01 

Os 130245E+04 

0. 160000E+02 

0 .3 1 747 1 E+ 03 

0 • 1626956 + 01 

0.2 56000E +04 

0. 1520006+02 

0.6812 99E +03 

0.182700E+01 

0. 1988446+04 

0.450082E+01 

0.51 3736E+03 

C.183651E+01 

0. 191079E+04 

0.3741 196+01 

0 • 49 15 27E + 03 

0. 183781E+01 

0. 

0. 

0. 

0. 

0. ICOOOOE +01 

0. 1400006+01 

C . 880000E + 00 

0. 61 7671F+03 

0.600000E+03 

0.400004E+03 

0.408253E+03 

0.206240E-01 

o. icooooe+oi 

0.I14286E+02 

0. 8600006+00 

0.310535F+03 

0.4000046+03 

0.983000E+00 

0 .5000006-01 

0. 

0. 2 COOOOE +01 

0.9000006+00 

0 .6545436-01 

0.1675636+03 

0. 

0.408253E+03 

0.206240E-01 

0. 114970E + 04 

0 . 2 30000E +0 1 

0 . 900000 E + 00 

0.111691E-01 

0. 222092E+02 

0 . 

0.408253E+03 

0.2062406-01 

C. 

0. 

0. 

0. 100000E+01 

0.8333336+00 

0.1000006+03 

0.8 14332 E + 00 

O.lOCOOOE+03 

0.824969E+01 

0. 5C0000E +02 

0.1 30000E +03 

0. 

0. 

0 . 

0. 

0. 

0 . 

0. ICOOOOE+OI 

0.600000E+03 

0 . 4C0004E+03 

0. 

0. 

0* 3 17471E+03 

0. 

C • 

0.6126 I7E+03 

0. 1400006+01 

0.146452E+03 

0.1607886+01 

0.612687E+03 

0. 140000E + 01 

0 .146452E + 03 

C. 1607 68E + 01 

0.612667E+03 

0. 1330006*01 

0.146451E+03 

0.1611406+01 

0. 61268 7E + 03 

0 . 133000E + 01 

0.1464516+03 

0 .1611406+01 

0. 6126 476 +03 

0. 133000E+01 

0 .1^-645 IE +03 

0. 161140E + 01 

0. 6126876+03 

0. 133000E+01 

0 .14645 IE + 03 

0 .161140E+01 

0.1999 J6E+03 

0. 

0. 199996E+03 

0 . 

0. 

0. 5000006-01 

0 .4999876 + 00 

C. 

0.5646996+03 

0. 100000E+01 

0 . 7 59245E +03 

0. 65 1 605 E + 00 

0. 564699E+03 

0. 100000E + 01 

0 .759245E + 03 

0.651 605E+00 
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0. 191079E+04 
0.824969E+01 
0.191079E+04 
0. 1910 79E+04 
0.408253E+03 
0. 360454E+01 
0.164454E+04 
0. 

0. 288621E+05 

0.612687E +03 
0.4C0004E+03 
0.220037E+01 
0, 100000E +03 
0* 220000E -*-01 
-0, 

0. 

0. 

0. 

0. 

0. 121387E+00 
0. 9247 13E +02 


0. 374119 E+Oi 
0.408253E+03 
0.374119E+01 
0.374119E+01 

0. 

0.493269E+G3 
0. 204005E +01 

0. 

0.943459E+04 

0, 140000 E +0 1 
0 • 571429E+00 
0.897880E+00 
0.157143E+01 
0.9000006+00 
0 . 

0. lOOOOOE+CO 

0. 

0. 

0.382967 E+05 
0. 878613E+00 
0 . 


0.491527E+03 
0.206240E-01 
0 . 49152 7E + 03 
0 .4915266+03 
0 .40625 3E+03 
0.238264E+00 
0.193729E+04 
0 . 747856E+03 
0.824969E+01 

0.146452E+03 
0.1 00000E+01 
0.112475E-01 
G. 870000E+00 
0.507501E+00 
0.612687E+03 

0. 

0. 

0. 

0 . 

0.100000E+01 

0.275230E+03 


0.183781E+01 

0. 

0. 1 63781E+01 
0.183781E+01 
0.206240E-01 
0.1893696+04 
0.100000E+01 
0 . 4648 73E+04 
0* 608250E+03 

0.160788E+01 

0. 

0.2012606+02 
0.4000046+03 
0, 998436E+00 
0 . 400004E+ 03 

0. 

0. 

0. 

0. 

0. 1000006+01 
0.197642E+01 


0. 612687E+03 
0. 1999966 + 03 
0.191079E+04 
0.191 07 9E + 04 

0. 

0. 36042 5E + 01 
0.1644546+04 
0.190823E+04 
0. 1 37495E-01 

0.198844E+04 
0 • 1 00000E+ 01 

0. 

0.100000E+01 

0. 


0. 

0. 

0. 

0. 

0. 

0. 


0.1330006+01 

0. 

0.3741196+01 
0 • 3741 19F+01 
0. 

0. 493264E+03 
0. 204005 F + 0 1 
0.2421346+05 
0.3829676+05 

0.4500826+01 

0.1000006+01 

0. 

0. 100000E+01 

0.5038516+00 


0. 

0. 

0.9850006+00 

0. 

0.0000006-38 
0. 224256E+01 


0.1464516+03 
0 . 100000F + 01 
0. 4915266 + 03 
0. 4915266 + 03 
0 .4932696+03 
0. 2382646 + 00 
0. 19372 9E + 04 
0. 

0.3829676+05 

0.5137366+03 
0.310535E+03 
0 . 1G0000E+03 
0 . lOQOOOE + Ol 
0.310535E+03 


0. 

0. 

0. 

0. 

0.382967E+05 

0.600000E-01 


C.161140E+01 

0. 

183781E + 01 
0 . 183781E+01 

0 . 

C. 

0 .iOOOOOE+Ol 
0. 9434 59E + 04 
0. 775494E+00 

C* 183651E+01 
0. 120000 E+03 
C. 8333 33E+00 
0.1200006+03 
0.400004 E+03 


0. 

0 . 

C. 

C. 

C. 

0.1675636+03 


$0(1 ) ,AM=.6,ALTP=25000, I AMTP=0, T4=2260, * RUN AT ALTITUDE AT REDUCED T4-STD DAY 
OUTPUT AM= 0.600 ALTP= 25000. T4= 2260.00 ETAR= 1.0000 

MIDDLE SPOOL IS DUMMY 
NO AIRFLOW INTO WING 


PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 

0.947947E+02 

0. 103558E+01 

0.770832E+00 

0.139853E+01 

0.659213E+03 

0.3311756+03 

PCNI 

CNI 

ZI 

PRI 

WACI 

W A I 

0.1 OOOOOE+O 1 

0. 

0. 833333E+00 

0.100000E+01 

0. 325217E+03 

0. 216035E+0 3 

PCNC 

CNC 

ZC 

PRC 

W ACC 

WAC 

0.939719E+02 

0. 1O2475E+0 1 

0.832435E+00 

0, 122227E+02 

0.325217E+03 

0* 216035 E+03 

T 2 

P2 

T22 

P22 

T21 

P21 

0.46057 3E + 03 

0.473409E+00 

0.5152316+03 

0* 662075E+00 

0 . 515231E+0 3 

0.66207 5 E + CO 

T 3 

P3 

PCBLF 

BLF 

PCBLC 

BLC 

0.11314 5E +04 

0.809237E+01 

0. 

0. 

Q. 

0. 

PCBLHP 

BLHP 

PCBLIP 

BLIP 

PCBLLP 

BLLP 

0. 

0. 

0. 

0. 

0. 

0. 

W A3 

WFB 

WG4 

FAR4 

T4 

P4 

0.216035E+03 

0. 386023E+01 

0.219895E+03 

0. 178685E-01 

0.226000E+04 

0. 768966E+ C 1 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T50 

P50 

0.925046E+02 

0* 197671E+01 

0.606063E-01 

0. 148082E+03 

0.17418 1E+04 

0.2257966+ Cl 

TFFIP 

CNIP 

DHTCIP 

DHTI 

T 5 

P5 

0. 

0. 

0. 

0. 

0. 1741 81E+04 

0.225796E+01 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 

0.276568E+03 

0. 227135E+01 

0.173802E-01 

0.195919E+02 

0. 167097E+04 

0. 187221E+01 

ETAB 

PCBLDU 

ETAD 

DPDUC 

T24 

P24 

0.983000E+00 

0. 

0. 

0. 558184E-01 

0* 51523 1E+0 3 

0.625119E+0C 

WAD 

WFD 

WG24 

FAR24 

T25 

P25 

0.1 15 140E+03 

0. 

0.115 140E+03 

0. 

0.515231E+03 

0.625119 E+00 

ETAF 

ETAI 

ETAC 

ETATHP 

ETATIP 

ETATLP 

0. 8 47442E +00 

0. IOOOOOE+Ol 

0.355182E+00 

0. 898 798E+00 

0. 

0. 899885 E + 0 C 

T 6 

P 6 

PS6 

AM6 

V6 

WG6 

0. 1670976+04 

0. 18722 1E+01 

0. 180570E+01 

0. 238717E+00 

0. 464280E+0 3 

0. 2198 95 £+03 

T 7 

WF A 

WG7 

FAR7 

ETA A 

DPAFT 

0.1 6 709 7E +04 

0. 

0. 2L9895E+03 

0. 178685E-01 

0. 

0. 

PS8 

AM8 

v V8 

PS9 

AM9 

V9 

0.10 195 bE + O 1 

0. IOOOOOE+Ol 

0. 181553E+04 

0. 101 958E+01 

0. 100000E + 0 1 

0.1815536+04 

PS28 

AM28 

V28 

PS29 

AM29 

V29 

0.371092E+00 

0. 895664E+00 

0.925362E+03 

0.371 092E+00 

0* 895664E+00 

0.925362E+C3 

BPRINT 

DPCOM 

DPWING 

PS38 

AM3 8 

V38 

0. 

0 • 497637E-01 

0. 

0. 

0. 

0. 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRD 

0.53297GE+00 

0. 

0.386023E+01 

0.3350356+03 

0 • 60993 8E + 0 3 

0.627824E+C4 

PCBLI 

WG37 

VJW 

PS3 9 

AM39 

V39 

•0. 

0. 

0. 

0. 

0. 

0. 

CVDWNG 

FGMWNG 

FGPWNG 

FNWING 

FNMAIN 

P28 

0.985000E+00 

0. 

0. 

0. 

0. 150885E+0 5 

0.625119E+C0 

FFOVFN 

F WOVEN 

FCOVFN 

FMNOFN 

FNOVFD 

P38 

0.715 1 96E-0 1 

0. 

0.9284806+00 

0. IOOOOOE+Ol 

0 • 393990E + 0 0 

0. 

CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

O.985COOE+O0 

0. 1788306+04 

0.9850006+00 

0.911482E+03 

0.1 5484 1E + 0 5 

0. 58826 7E+C4 


MAIN SCNIC CONVERGENT NOZZLE FG= 21366.77 FN= 15088.53 SFC= 0.92102 

OUCT SUBSONIC CONVERG. NOZZLE 

CONVERGED AFTER 15 LOOPS 
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$D(1),IDES=1,* NOW RUN 3 SPOOL, 3 STREAM AFTFAN ENGINE 

SDI 1 > ,IDES=l,DUMMYSPOOL=.F., AFTFAN=.T., PCBLI DS=. 5,1 AMTP=2, T2*3I, PRC0S= 16/2. 2, 

W AFC DS= 200*TR0P ICALDAY,WA IC DS =4Q0-*TRDP I CALDA Y , * SEE FIG 6 FOR CHANGED AIRFLOWS 
AM=0,ALTP*0,PRI0S=2.2, * EXIT P FROM FAN=1.4,1ST COMP 2.2, 2ND COMP 16 

FAN DESIGN PRFCF* 0. lQOGGOOOE+Ol ETAFCF* 0. 10000000E+01 WAFCF* 0.34315033F+00 T2DS= 0. 549£6 B 19E + 03 

MIDDLE SPOOL DESIGN PRICF* 0. 20000000E+01 ETAfCF* 0.98863635E+00 WAICF= 0.137260I3E+01 T22DS* 0. 549Z6 81 9E + 03 

COMPRESSOR DESIGN PRCCF* 0. 89610390E+00 ETACCF= 0.10000000E+01 WACCF* 0. 10630393E+01 T21DS= 0. 709 < 0726E+03 

INTER DUCT DESIGN A38= 0.23855523E+01 AM38- 0. 10000000E+01 A39= 0.23855523E+0 1 AM39= 0. lOOCCOCOE+Ol 

COMBUSTOR DESIGN WA3CDS= 0. 30797648E+02 ETABCF* 0.98300000E+00 DTCOCF= 0. 10000000E+01 

H. P. TURBINE DESIGN CNHPCF= 0. 10119289E+01 TFHPCF= 0. 10815664E+01 ETHPCF= 0. 10000000E+01 DHHPCF= 0.95650290E+00 

I. P® TURBINE DESIGN CNIPCF* 0. 99847737E+00 TFIPCF= 0®10153566E+01 ETIPCF* 0.10000000E+01 DHIPCF= 0. 16587348E+0I 

L® P« TURBINE DESIGN CNLPCF* 0. 97482939E+0 0 TFLPCF* 0.62291450E+00 E TL PC F = 0® 10201339E+01 DHLPCF* 0. 479S5920E+0C 

DUCT NOZZLE DESIGN A28* 0. 37509597E+01 AM28* 0®65160510E+00 A29= 0.37509597E+01 AM29* 0. 65 1605 1CE+00 

TURBINE AREA DESIGN A55= 0. 79397937E+01 AM55* 0.23826586E+00 

NOZZLE DESIGN A8= 0, 31030816E+01 AM8* 0. 10000000E+01 A9= 0.31030816E+01 AM9* 0. 100C00 C0E+01 

OUTPUT AM* 0. ALTP= 0. T4= 2560.00 ETAR* 1.0000 

THREE SPOOL ENGINE 
AFT-TURBOFAN 


PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 

0.100000E+03 

O.iOOOOOE+Ol 

0.833333E+00 

0. 140000E+01 

0. 205890E+03 

0®200000E+03 

PCNI 

CNI 

ZI 

PRI 

WACI 

WAI 

0.1 OOOOOE+03 

0* 100000E+01 

0, 833333E+00 

0. 220000E+01 

0.411780E+03 

0.400000E+03 

PCNC 

CMC 

ZC 

PRC 

W ACC 

WAC 

0.100000E+03 

O.iOOOOOE+Ol 

0.814332E+00 

0* 727273E+01 

0. 106304E+03 

0.2000006+C3 

T 2 

P2 

T22 

P22 

T21 

P21 

0.54966 8E+03 

O.iOOOOOE+Ol 

0.612687E+03 

0. 140000E+01 

0.709207E+03 

0. 220000E+0 1 

T3 

P3 

PCBLF 

BLF 

PCBLC 

BLC 

0.131103E+04 

0. 160000E+02 

0 . 

0 . 

0 . 

0 . 

PCBLHP 

BLHP 

PCBLI P 

BLIP 

PCBLLP 

BLLP 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

W A3 

WFB 

WG4 

FAR4 

T4 

P4 


0. 20000 0E+03 0.409834E+01 0.204098E+Q3 0.204917E-01 0.256000E+04 0.152000E+02 

TFFHP CNHP DHTCHP OHTC T50 P50 

0.462292E+02 0.197642E+01 0.600000E-01 0.146980E+03 0.205983E+04 0.533327E+01 

TFFIP CNIP DHTCIP DHTI T5 P5 

0. 11818 5E +03 0® 220335E+01 0.220000E-01 0.751676E+02 0.179639E+04 0®282050E+01 

TFFLP CNLP DHTCLP DHTF T55 P55 

0.208696E+03 0.235939E+01 0.171750E-01 0.14B082E+02 0,1743706+04 0.246262E+01 

ETAB PCBLDU ETAD DPDUC T24 P24 

0.983000E+00 0. 0. 0.500000E-01 0.612687E+03 0.13300CE+C1 

WAD WFD WG24 FAR24 T25 P25 

0.200000E+03 0. 0.200000E+03 0. 0.612687E+03 0.133000E+01 

ETAF ETA I ETAC ETATHP ETATIP ETATLP 

0.88G000E+00 0.870000E+00 0.860000E+00 0.900000E+00 0.900000E+00 0.90000CE+CC 

T 6 P6 PS6 AM6 V6 WG6 

0® 1 74370E+04 0.246262E+01 0.237214E+01 0.238266E+00 0.472437E+03 0.204098E+C3 

T7 WFA WG7 FAR7 ETAA DPAFT 

0.1 74370E+04 0. 0.20409BE+03 0.204917E-01 0. 0. 

PS0 AM 8 V8 PS9 AM9 V9 

0.133970E+01 0. 100000E+01 0.185307E+04 0.133970E+01 0.100000E+01 0.185307E+C4 

PS28 AM28 V28 PS29 AM29 V29 

0.100000E+01 0. 65 1605E+00 0.759245E+03 0.100000E+01 0.651 605E+Q0 0.75924 5E-t-03 

BPRINT DPCOM DPWING PS38 AM38 V38 

0. 1 00000E+01 0.500000E-01 0.100000E+00 0.104873E+01 O.iOOOOOE+Ol 0.1192I7E+04 

BYPASS HPEXT WFT WGT VA FRD 

0. 50C000E+00 0. 0.409834E+01 0.604098E+03 0. 0. 

PCBLI WG37 VJW PS39 AM39 V39 

0.500000E+00 0. 200000E+03 0.117429E+04 0. 104873E+01 0.100000E+01 0.119217E+04 

CVDWNG FGMWNG FGPWNG FNWING FNMAIN P28 

0.985000E+00 0.729961E+04 0.246010E+03 0.754562E+04 0.184583E+05 0.I3300CE+01 

FFOVFN FWOVFN FCOVFN FMNOFN FNOVFD P38 

0. 1 78774E +00 0.290172E+00 0.531054E+00 0.709828E+00 O.iOOOOOE+Ol 0.19800GE+01 

CVMNOZ VJM CVDNOZ VJD FGM FGP 

0.985000E+00 0. 182527E+04 0.985000E+00 0.747856E+03 0.235272E+05 0®247676E+C4 

MAIN SCNIC CONVERGENT NOZZLE FG= 26003.93 FN* 26003.93 SFC* 0. 5t738 

DUCT SUBSONIC CONVERG. NOZZLE 


CONVERGED AFTER 1 LOOPS 
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COMMON 


0.833333E+00 


0 . lOOOOGE +03 0» 833333E+00 


0.100000E+03 0.814332E+00 0.100000E+03 0.2560C0E+04 0 


O.lCOOOOE+03 0.100000E+03 0.256000E+04 0.100000E+O3 0, 0.100000E+01 O.IOCOOOE+Ol O.IOOOCOE+Ol 

0.833333E+00 0.1000006+03 0.140000E+01 0.880000E+00 0.200000E+03 O.IOOOOOE+Ol O.IOOOOOE+Ol C.343150E+00 

0.814332E+00 0.100000E+03 0.727273E+01 0.860000E+00 0.200000E+03 0.896104E+00 0.100000E+01 0.106304E+01 

0.256000E+04 0. 0.124897E+04 0.983000E+00 0.307976E+02 0.500000E-01 O.IOOOOOE+Ol 0.983000E+00 

0 • 500000E +02 0.200000E+01 0.900000E+00 0.1081576+01 0. 1011936+01 O.IOOOOOE+Ol 0.956903E+00 0.549668E+03 

0*1 30000E +03 0.230000E+01 0.900000E+00 0.622915E+G0 0.974829E+00 0.102013E+01 0.479959E+00 0.709207E + 03 

0. 0, 0. 0. 0. 3536076+04 0.500000E-01 0. 0. 

0* 0. 0. 0. 0.346O81E*04 0. 0. C. 

0* 793979E+01 0. 0.793979E+01 0.793979E+01 0.310308E+0! 0.310308E+01 0.375096E + 01 0.375096E+01 

0.237214E+01 0.238266E+00 0.985000E+00 0.985000E+00 0. 0. 0. 0. 

0.549670E+03 0.100000E+01 0.131340E+03 0.160493E+01 0.549668E+03 O.IOOOOOE+Ol 0.131340E+03 0.160493E+01 

0.709207E+03 0.22000DE+01 0.169694E+03 0.161211E+01 0.131103E+04 0.160000E+02 0.319686E+03 C. 162865E+01 

0. 256000E+04 0.152000E+02 0.681183E+03 0.182692E+01 0.179639E+04 0,2820506+01 0.459035E+03 0.183965E+01 

0. 174370E+04 0.246262E+01 0.444227E+03 0.184059E+01 0, 0. 0. 0. 

0. ICOOOOE+Ol 0. 140000E+01 0.880000E+00 0.205890E+03 0.200000E+03 0.200000E+03 0.204098E+03 C.204917E-01 

0.1C0000E+01 0.727273E+01 0.860000E+00 0.106304E+03 0.200000E+03 0.983000E+00 0.500000E-01 C. 

0.200000E+01 0.900000E+00 0.574142E-01 0.146980E+03 0. 0.204098E+03 0,204917E-01 0,1149706+04 

0, 230000E+01 0, 900000E+00 0.824328E-02 0.148082E+02 0. 0,2040986+03 0.204917E-01 0. 

0. 0. 0 ,1000006+01 0.833333E+00 0.100000E+03 0.814332E+00 0.100000E+03 0,409834E+01 

0.5C00006+02 0, 130000E+03 0, 0. 0, 0, 0, 0. 

O.ICOOOOE+Ol 0, 200000E+03 0.200000E+03 0, 0, 0.319686E+03 0, 0. 

0,7092076+03 0.220000E+01 0.169694E+03 0.161211E+01 0.612687E+03 0.140000E+01 0.146452E+03 0. 160788E+01 

0,6126876+03 0.133000E+01 0.146451E+03 0,161140E+01 0.612687E+03 0-133000E+01 0-146451E+03 0,161140E+01 

0. 6126876+03 0.133000E+01 0.146451E+03 0.161140E+01 0.612687E+03 0.1330006+01 0.146451E+03 0.161140E+01 

0 , 2C0000E+03 0, 0.200000E+03 0. 0. 0.500000E-01 0.500000E+00 0. 

0, 564699E+03 0.100000E+01 0,759245E+03 0.651605E+00 0.564699E+03 0.100000E+01 0.759245E+03 0.651605E+00 

0. 174370E+04 0.246262E+01 0.444227E+03 0.184059E+01 0.612687E+03 0.133000E+01 0.146451E+03 0.161140E+01 

0, 409834E +01 0.204098E + 03 0.204917E-01 0. 0.200000E+03 0. O.IOOOOOE+Ol 0, 

0, 1 74370E+04 0.246262E+01 0.444227E+03 0.184059E+01 0.174370E+04 0.246262E+01 0.444229E+03 0. 184059E+01 

0, 174370E+04 0.246262E+01 0.444229E+03 0.184059E+01 0.174370E+04 0.246262E+01 0.444229E+03 C.184059E+01 

0, 204098E+03 0. 0.204098E+03 0.2049176-01 0. 0. 0.472437E+03 0. 

0.237214E+01 0.472437E+03 0.238266E+00 0.172774E+04 0.237194E+01 0.472433E+03 0.238266E+00 0. 

0, 149584E+04 0.133970E+01 0.185307E+04 0.100000E+01 0.149584E+04 0.133970F+01 0.185307E+04 0.100000E+01 

0. 0. 0.747856E+03 0.464882E+04 0.182527E+04 0.115787E+05 0, 0.223075E+04 

0. 235272E+05 0.247676E+04 0.409834E+01 0.604098E+03 0.683057E-02 0.260039E+05 0.260039E+05 0.567377E+00 

0. 6 12687E+03 0.140000E+01 0.146452E+03 0.160788E+01 0.205983E+04 0.533327E+01 0.534203E+03 0.183496E+01 

0.4C0000E+03 0, 833333E+00 0.100000E+03 0.100000E+01 0.220000E+01 0.870000E+00 0,411780E+03 0.120000E+03 

0. 220000E+01 0. 900000E+00 0.364922E-01 0.751676E+02 0. 0. 0.100000E+03 0.833333E+00 

0* 1COOOOE+03 0, 220000E+01 0.870000E+00 0.400000E+03 0.200000E+01 0.988636E+00 0.137260E+01 0.120000E+03 

0.220000E+01 0.9000006+00 0.101536E+01 0.998477E+00 0. 0.165873E+01 0.411780E+03 0. 4000006+03 

0. SCOOOOE+OO 0, 200000E +03 0.549668E+03 0.200000E+03 

0, 2COOOOE+03 0.100000E+00 0.100000E+00 0.242100E+04 0.238555E+01 0.100000E+01 0.119217E+04 0.709207E+03 

0.169694E+03 0.198000E+01 0.591405E+03 0.104873E+01 0.709207E+03 0.169694E+03 0.198000E+01 0.591405E+03 

0.1 192 17E +04 0.1000006+01 0.238555E+01 0.100000E+01 0.200000E+03 0. 985000E+00 0.725961E+04 0.246010E+03 

0. 754562E+04 0.184583E+05 0.290172E+00 0.104873E+01 0. 0. 0. 0. 

0. 178774E+00 0.531054E+00 0.709828E+00 0.100000E+01 O.OOOOOOE-38 0. 0.260039E+05 0.500000E+00 

0.462292E+02 0.118185E+03 0.208696E+03 0.197642E+01 0.220335E+01 0.235939E+01 0.600000E-01 0.146980E+03 


$Dt 1) ,AM=.6,ALTP=25000, IAMTP=0»T4-2260,* RUN AT ALTITUDE AT REDUCED T4-STD DAY 


OUTPUT AM= 0.600 

ALTP= 25000 

>. T 4= 

2260.00 


ETAR = 1.0000 

THREE SPOUL ENGINE 






AFT-TURBOFAN 






PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 

0. 96207 2E+02 

0. 105101E+01 

0. 714685E+00 

0. 138097E+01 

0.225997E+03 

0. 1135366+03 

PCNI 

CNI 

ZI 

PRI 

WACI 

WAI 

0,93471 7E+02 

0.102113E+01 

0.836950E+00 

0. 226038E+01 

0.425061E+03 

0.213542E+03 

PCNC 

CNC 

ZC 

PRC 

WACC 

WAC 

0.93354 2E+02 

0. 101276E+01 

0.8297756+00 

0. 756550E+01 

0. 1088496+03 

0. 108062 E+C3 

T 2 

P2 

T22 

P22 

T 21 

P21 

0.460573E+03 

0* 47 3 40 9 E +00 

0. 514072E+03 

0, 653762E+00 

0.602600E+03 

0. 107009E+01 

T 3 

P3 

PCBLF 

BLF 

PCBLC 

BLC 

0.1 1397 5E+04 

0. 809574E+01 

0. 

0. 

0. 

0. 

PCBLHP 

BLHP 

PCBLIP 

BLIP 

PCBLLP 

BLLP 

0. 

0. 

0. 

0. 

0. 

0. 

W A3 

WFB 

WG4 

FAR4 

T4 

P4 

0. 10806 2E+03 

0.191758E+01 

0. 109980E+03 

0. 177451E-01 

0.226000E+04 

0,76927 1 E + 0 1 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T50 

P50 

0.462476E +02 

0. 1963726+01 

0. 599475E-01 

0.129591E+03 

0.180776E+04 

0.2690976+01 

TFFIP 

CN! P 

DH TCI P 

DHTI 

T5 

P5 

0.11 824 3E+03 

0.219841E+01 

0.220249E-01 

0. 660349E+02 

0.156967E+04 

0,141927E+ni 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 

0. 20890 7E+03 

0. 242830E+01 

0. 175304E-Q1 

0.132117E+02 

0,1 52 127E+04 

0. 1235326+C1 

ETAB 

PCBLDU 

ETAD 

DPOUC 

T24 

P24 

0.983000E+00 

0 . 

0, 

0. 556770E-01 

0.51407 2E+0 3 

0.617362E+0C 

WAD 

WFD 

WG24 

FAR24 

T25 

P25 

0. 11353 6E +03 

0 . 

0. 1 13536E+03 

0 . 

0.514072E+03 

0. 617362E+ CO 

ETAF 

ETAI 

ETAC 

ETATHP 

ETATIP 

ETATLP 

0.8316506+00 

0. 853040E+00 

0. 855615E+00 

0. 899274E+00 

0 • 89946 7E + 0 0 

0 • 89899 1 E+0 C 

T 6 

P6 

PS6 

AMS 

V 6 

WG6 
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0.15212 7E +04 
T 7 

0.152127E+04 

PS8 

0.669006E+00 

PS28 

0.3 71092E + 00 
SPRINT 

0.9 7 609 8E + 00 
BYPASS 

0.53168 1E+00 
PC8LI 

0.493952E+00 

CVDWNG 

0.985000E+00 

FFOVFN 

0.783524E-01 

CVMNOZ 

0.98 5000E + 00 


0. 123532E+01 
WFA 

0 . 

AM8 

0. 100000E+01 
AM28 

0. 883805E+00 
DPCOM 

0. 497825E-01 
HPEXT 

0 . 

WG37 

0. 1054806+03 
FGMWNG 

0.354867E+04 

FWOVFN 

0 • 171 945E+00 
VJM 

0. 170846E+04 


0.119153E+01 

WG7 

0.109980E+03 

V 8 

0.173448E+04 

V28 

0. 913767E+03 
DPWING 
0.999471E-01 
WFT 

0. 191758E+01 

V JW 

0.108244E+04 

FGPWNG 

0.697668E+03 

FCOVFN 

0. 749703E + 00 
CVDNOZ 

0. 985000E+00 


0. 237865E+00 
FAR7 

0. 177451E-01 
PS9 

0* 669006E +00 
PS2 9 

0* 3 71 Q92E+00 
PS38 

0* 509290E+00 
WGT 

0* 328996E+03 
PS39 

0. 509290E +00 
FNWING 

0. 22467 1 E+04 
FMNOFN 

0. 828 05 5E+00 
VJD 

0* 900061E+03 


0.442 666E + 03 
ETAA 

0. 

AM9 

0. 100000E+0 1 
AM29 

0.883805E+OQ 

AM38 

0,1 OOOOOE+O 1 
V A 

0, 609938E+0 3 
AM39 

0. 1000006+0 1 
FNMA I N 
0. 108 198E+0 5 
FNOVFD . 
0.50248 1E+00 
FGM 

0. 1256486+05 


0. 10998CE+02 
DPAFT 

0. 

V9 

0. 173448 £+04 
V29 

0 .913767 E+0 3 
V38 

0.109892E+04 

FRD 

0. 215236E+04 
V39 

0. 109892 E+04 
P28 

0.617362E+00 

P38 

0.963134E+00 

FGP 

0.26540 1 E+04 


MAIN SONIC CONVERGENT NOZZLE FG= 15218.84 FN= 13066.49 

OUCT SUBSONIC CONVERG. NOZZLE 


SFC= 0. 5283 2 


CONVERGED AFTER 24 LOOPS 


$D(1)»IDES=1,* NOW RUN SUPERCHARGED COMPRESSOR AFTFAN, SEE FIGURE 7 

$D(1 MDES = 1,AM=0,ALTP=0, IAMT P=2 , T2=3 l , F l XM I DDLETOCOMP= . T . ,* AFTFAN STILL TRUE 


FAN DESIGN 

P RFCF = 0. 10000000E+0 1 

ETAFCF= 

0.10000000E+01 

WA FC F= 0 • 343 1 5033 E + 00 

T 2DS= 0. 549 66 81 9E+03 

MIDDLE SPOOL DESIGN 

PR ICF = 0. 200000Q0E + 01 

ETAICF= 

0. 988636 35E+00 

WA ICF = 0. 137 26013 E+0 1 

T22DS* 0. 549668 19E+03 

COMPRESSOR DESIGN 

P RCCF = 0.10336619E + 01 

E TACCF = 

0.10267859E+01 

WACCF= 0. 12042486 E+0 1 

T21DS= 0. 7092 07 3 6E +03 

INTER DUCT DESIGN 

A38= 0.23855523E+01 

AM38 = 

O.IOOOOOOOE+Ol 

A39= 0. 23 85 552 3E +01 

AM39* 0.1 OOOOOOOE+Ol 

COMBUSTOR DESIGN 

WA3C0S= 0. 30797647E+02 

ETABCF= 

0. 98300000E+00 

dt:ocf= o* i oooooooe+o i 


I.P. TURBINE DESIGN 

CN I PCF = 0. 101 19288E+01 

TF I PCF= 

0.10815664E+01 

ETI PCF= 0.1 OOOOOOOE+Ol 

DHIPCF* 0.14462754E+01 

L.P. TURBINE DESIGN 

CNL PCF = 0.97482939E+00 

TFLPCF= 

0.61068 156E+00 

ETLPCF= 0.10201339E+01 

DHLPCF* 0.47995920E+00 

DUCT NOZZLE DESIGN 

A28 = 0. 37509597E+01 

AM28= 

0. 6516051 OE+OO 

A29= 0 .37 509 597 E+0 1 

AM 29= 0. 6516051 OE + OO 

TURBINE AREA DESIGN 

A 55= 0. 80988405E+01 

AM55= 

0.23826586E+00 



NOZZLE -DESIGN 

A8= 0.31652414E+01 

AM8= 

0. 10000000 E + 01 

A9= 0.31652414E+01 

AM9= O.IOCCOOPOE+Ol 

CUTPUT 

AM= 0. ALTP= 

0. 

T4= 2560.00 

ETAR= 1.0000 


MIDDLE AND COMPRESSOR SPOOLS ARE ATTACHED , USE MIDDLE AND OUTER TURBINES 
AFT-TURBOFAN 


PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 

0.100000E+03 

0.100000E+01 

0 • 833333E+00 

0. 140000E+01 

0.205890E+03 

0 • 200000E+0 3 

PCN I 

CNI 

ZI 

PRI 

WACI 

W A I 

0. 1 OOOOOE +03 

0. 100000E+0 1 

0. 833333E +00 

0. 220000E+01 

0.411 780E+03 

0. 40000C E+0 2 

PCNC 

CNC 

ZC 

PRC 

W ACC 

WAC 

0.929464E+0 2 

0.929464E+00 

0. 8 14332E+00 

0.727273E+01 

0. 106 304E + 0 3 

0. 200000 E + 03 

T 2 

P2 

T22 

P22 

T21 

P21 

0. 5 4966 8E +0 3 

0. 100000E+01 

0 • 612687E+03 

0.140000E+01 

0. 709207E+0 3 

0. 220000E+ 0 1 

T 3 

P3 

PCBLF 

BLF 

PCBLC 

BLC 

0.13 1 10 3E+04 . 

0.160000E+02 

0. 

0. 

0. 

0. 

PCBLHP 

BLHP 

PCBLIP 

BLIP 

PCBLLP 

BLLP 

0. 

0. 

0. 

0. 

0. 

0. 

W A3 

WFB 

WG4 

FAR 4 

T 4 

P4 

0.200000E+03 

0 ■ 409834E+01 

0.204098E+03 

0. 204917E-01 

0* 256000E+0 4 

0. 152000E+02 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T50 

P50 

0. 

0. 

0. 

0. 

0 . 256000E+0 4 

0. 15200CE+C2 

TFFIP 

CNIP 

DHTCIP 

DHTI 

T5 

P5 

0.462292E+02 

0. 1 97642E + 01 

0.600000E-01 

0. 222 148E+03 

0.1796396+04 

0.27651 1E+01 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 

0.2 l 2877E+03 

0. 235939E+01 

0.1 71750E-01 

0. 148082E+02 

0.1 74370E+04 

0. 241426 E+0 1 

ETAB 

PCBLDU 

ETAD 

DPDUC 

T24 

P24 

0.983000E+00 

0. 

0. 

0.5000006-01 

0.612687E+03 

0. 13300CE + 0 1 

WAD 

WFD 

WG24 

FAR24 

T25 

P25 

0.200000E+03 

0. 

0.200000E+03 

0. 

0.612687E+03 

0. I3300C E + 0 1 

ETAF 

ETAI 

ETAC 

ETATHP 

ETATIP 

ETA TL P 

0. 8 80G00E+00 

0.870000E+00 

0. 860000E+00 

0. 

0. 900000E+00 

0. 900000E+00 

T 6 

P6 

PS6 

AM6 

V 6 

WG6 

0.174370E+04 

0.241426E+01 

0.Z32656E+01 

0.23B266E+00 

0.4724376+03 

0.204098E+03 

T 7 

WFA 

WG7 

FAR 7 

ETAA 

DPAFT 

0.174370E +04 

0. 

0. 204098E +03 

0. 20491 76-01 

0. 

0. 

PS8 

AM 8 

V8 

PS9 

AM9 

V9 
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0. 1313396+01 

0* 1000006+01 

0.185307E+04 

0. 131 339E+01 

0. 100000E+0 1 

0. 185307E+04 

PS28 

AM28 

V28 

PS29 

AM2 9 

V29 

O.IOCOOCE+Ol 

0* 6516056+00 

0.759245E+03 

O.lOOOOOE+Ol 

0.651605E+00 

0.759245E+C2 

BPR f NT 

DPCDM 

DPWING 

PS38 

AM38 

V38 

O.iOOOOOE+Ol 

0, 500000E-01 

0. lOOGOOE+GO 

0. 104873E+01 

0. 100000E+0 1 

0. 11921 7E+04 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRD 

0. 50OCOCE+OO 

0* 

0. 4098346+01 

0.604098E+03 

0. 

0. 

PCBLI 

WG37 

VJW 

PS3 9 

AM39 

V39 

0.500000E+00 

0.2000006+03 

0. 1 17429E+04 

0.104873E+01 

0. 100000E+0 1 

0® 11921 7E+04 

CVOWNG 

FGMWNG 

FGPWNG 

FNWING 

FNMAIN 

P28 

0.985000E+00 

0.729961E+04 

0.246010E+03 

0* 754562E+04 

0.183268E+05 

0 • 13300C E+0 1 

FFOVFN 

FWOVFN 

FCOVFN 

FMNOFN 

FNOVFD 

P38 

0.1 7968 3E+00 

0.291648E+00 

0.528670E+00 

0.708352E+00 

O.lOOOOOE+Ol 

0. 198000E+0 1 

CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

0.985000E+00 

0.1 825276+04 

0.985000E+00 

0* 747856E+03 

0.235272E+05 

0.234521 E+04 

MAIN SCNIC CONVERGENT NOZZLE 

FG= 25872.39 


FN= 25872.39 


SFC= 0.57026 


DUCT SUBSONIC CONVERG. NOZZLE 
CONVERGED AFTER 1 LOOPS 


COMMON 

0.833333E+00 

0 • 100000E+03 

0. 833333E+00 

0. 100000E+03 

0. 814332E+00 

0 .9294646+02 

0.2560006+04 

0. 1 COOOOE +03 

0.100000E+03 

0.256000E+04 

0. 100000E+03 

0. 

0* 100000E+01 

o aoooooE+oi 

0.1000 00E+01 

0.833333E+00 

0* 100000E+03 

0 * 140000E + 01 

0. 8B0000E+00 

0. 200000E+03 

0* 100000E+01 

0 .1000006+01 

0.3431 50E+00 

0.8143326+00 

0.929464E+02 

0. 727273E+01 

0. 860000E+00 

0.2000006+03 

0.1033666+01 

0.102679E+01 

0. 1204256+01 

0. 256000E +04 

0. 

0.124897E+04 

0* 983000E+00 

0. 3079766+02 

0. 500000E-01 

O.IOOOOGE+Ol 

0.983000E+00 

0. 5CQ000E+O2 

0.200000E+01 

0.900000E+00 

0. 

0. 

0. 

0. 

0. 549668 E+03 

0.1 300006+03 

0.230000E+01 

0.900000E+00 

0.610682E+00 

0.9748296+00 

0.102013E+01 

0.479959E+00 

0.709207E+03 

0, 

0. 

0. 

0. 

0. 3536076+04 

0. 500000E-01 

0. 

0. 

0. 

0. 

0. 

0. 

0.353014E+04 

0. 

0. 

0. 

0.8098846+01 

0. 

0. 8098846+01 

0.809884E+01 

0.316524E+01 

0. 316524E+01 

0.375096E+01 

0.375096E+01 

0. 232556E+01 

0.238266E+00 

0 • 985000E+00 

0. 985000E+00 

0. 

0. 

0. 

C. 

0. 5496 70E 4-03 

O.iOOOOOE+Ol 

0.131340E+03 

0. 160493E+01 

0.5496686+03 

0* 100000E+01 

0 .13 1340E+03 

0.160493E+01 

0.7C9207E+03 

0. 220000E+01 

0 • 169694E+03 

0* 161211E+01 

0.1311036+04 

0* 160000E+02 

0.319686E+03 

0.1628656+01 

0.256000E+04 

0. 152000E +02 

0.68H83E+03 

0.182692E+01 

0.1796396+04 

0.276511E+01 

0.45903 5E+03 

C • 184101 E+01 

0.1743706+04 

0. 241426E+01 

0.444227E+03 

0.184195E+01 

0. 

0. 

0. 

C. 

O.lOOOOOE+Ol 

0.140000E+01 

0.880000E+00 

0.205890E+03 

0.2000006+03 

0.200000E+03 

0 .2040986+03 

0. 2049176-01 

0.929464E+00 

0. 727273E+01 

0.860000E+00 

0. 106304E+03 

0.2000006+03 

0.983000E+00 

0.5000006-01 

0. 

0. 

0. 

0. 

0. 

0. 

0.204098E+03 

0*20491 7E-01 

C • 114970E+04 

0. 230000E +01 

0. 900000E+00 

0.824328E-02 

0. 148082E+02 

0. 

0.2040986+03 

0 .20491 7E-01 

0. 

0. 

0 « 

0 • 100000E + 01 

0.8333336+00 

0* 100000E+03 

0.814332E+00 

0.929464E+02 

0 .4098346+01 

0. 5000006+02 

0.130000E+03 

0. 

0. 

0. 

0. 

0. 

C. 

0. ICOOOOE +01 

0. 200000E + 03 

0.200000E+03 

0. 

0. 

0.319686E+03 

0 . 

0. 

0. 709207E 4-03 

0.220000E+01 

0.1 69694E+03 

0.161211E+01 

0. 6126B7E+03 

0.140000E+01 

0.1464526+03 

0.160788E+01 

0. 612687E 4-03 

0.133000E+01 

0.146451E+03 

0.1611406+01 

0.6126876+03 

0.133000E+01 

0 • 146451E+03 

0.1611406+01 

O'. 612687E+03 

0. 133000E+01 

0. 146451E+03 

0.161140E+01 

0.6126876+03 

0. 1330006+01 

0.146451E+03 

0.1611406+01 

0. 2C0000E 4-03 

0. 

0. 200000E+03 

0. 

0. 

0. 500000E-01 

0.500000E+00 

C. 

0.564699E+03 

0 • 100000E +01 

0.759245E+03 

0.651605E+00 

0.564699E+03 

0. 100000E+01 

0.759245E+03 

0.6516056+00 

0. 1743 70E 4-04 

0.241426E+01 

0.444227E+03 

0. 184195E+Q1 

0. 6126876+03 

0.133000E+01 

0.146451E+03 

0 • 161 140E+01 

0 • 4098 34E 4-0 1 

0. 204098E+03 

0.204917E-01 

0. 

0.200000E+03 

0. 

O.iOOOOOE+Ol 

C. 

0.1 743 70E+04 

0.241426E+01 

0.444227E+03 

0.184195E+01 

0. 174370E+04 

0. 2414266+01 

0 .4442296+03 

0.1841956+01 

0. 1743 70E 4-04 

0. 2414266+01 

0.444229E+03 

0.184195E+01 

0.1743706+04 

0. 241426E+01 

0.444229E+03 

0.184195E+01 

0.204098E4-03 

0. 

0.204098E+03 

0.204917E-01 

0. 

0. 

0.472437E+03 

C. 

0. 232556E 4-01 

0.4724376+03 

0. 238266E+00 

0. 172774E+04 

0.232536E+01 

0.472433E+03 

0.238266E+00 

0. 

0. 1495846+04 

0. 131 339E+01 

0*1 85307E+04 

0.1000006+01 

0.149584E+04 

0. 1313396+01 

0.185307E+04 

O.iOOOOOE+Ol 

0. 

0. 

0.747856E+03 

0.464882E+04 

0. 182527E+04 

0. 1 15787E+05 

0. 

C. 2099206+04 

0.235272E4-05 

0. 234521 E+04 

0.409834E+01 

0. 604098E+03 

0.6830576-02 

0.258724E+05 

0.2587246+05 

C. 5702626+00 

0.612687E4-03 

0. 140000E+01 

0 * 146452E + 03 

0. 160788E+01 

0.256000E+04 

0.152000E+02 

0.681183E+03 

0.1826926+01 

0. 4000006+03 

0.833333E+00 

0.1000006+03 

0. 1Q0000E+01 

0.220000E+01 

0. 870000E+00 

0 .41 1780E+03 

0. 500000E + 02 

0.2C0000E4-01 

0. 900000E +00 

0.867765E-01 

0. 2221486+03 

0. 

0. 

0.100000E+03 

0. 833333 E+00 

0. 100000E +03 

0. 220000E+01 

0 • 870000E+00 

0.400000E+03 

0.200000E+01 

0.988636E+00 

0 .1372606+01 

P.1200006+03 

0 . 220000E +01 

0. 900000E+00 

0.108157E+01 

0 • 10 1193E+01 

0. 

0.144628E+01 

0 .41 1780E+03 

0 • 400C006+03 

0.5C0000E+00 

0.200000E+03 

0 . 549668E +03 

0* 200000E+03 





0. 2C0000E+03 

0 • 100000E+00 

0.100000E+00 

0.242100E+04 

0 . 23855 5E + 01 

0.1 OOOOOE+Ol 

0 .1192176 + 04 

0.709207 E+03 

0.1 69694E+03 

0.198000E+01 

0.591405E+03 

0.104873E+01 

0.709207E+03 

0. 169694E+03 

0 .198000E+01 

C. 5914056+03 

0.1 192 17E+04 

0. 100000E + 01 

0. 238555E + 01 

0. 100000E+01 

0.200000E+03 

0.985000E+00 

0.729961E+04 

0. 246010E+03 

0.7 54562E+04 

0. 1832686 + 05 

0.2916486+00 

0.1048736+01 

0. 

0.000000E-38 

0. 

0. 

0.1796836+00 

0.528670E+00 

0.708352E+00 

0. 100000E+01 

0.000000E-38 

0. 

0.258724E+05 

0.500000E+00 

0. 

0.462292E+02 

0.212877E+03 

0. 

0.1976426+01 

0.235939E+01 

0. 

0. 
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$D(1 ),AM=.6,ALTP=25000, I AMTP = 0, T4=2260,+ RUN AT ALTITUDE AT REDUCED T4-STD DAY 
OUTPUT AM= 0.600 ALTP= 25000. T4= 2260.00 ETAR = I.COOO 

MIDDLE AND COMPRESSOR SPOOLS ARE ATTACHED , USE MIDDLE AND OUTER TURBINES 


AFT-TURBOFAN 

PCNF 

CNF 

IF 

PRF 

WAFC 

WAF 


0.9663276+02 

0.1 05566E+01 

0.717809E+00 

0.138610E+01 

0. 227254E+03 

0.114168E+C3 


PCNI 

CNI 

Zl 

PRI 

WACI 

WAl 


0.938762E+02 

0. 1 02555E+01 

0. 835402E +00 

0.226957E+01 

0.428 150E+03 

0. 215094E+C3 


PCNC 

CNC 

ZC 

PRC 

WACC 

WAC 


0.8 7380 7E+02 

0. 946960E+00 

0. 82 7554E + 00 

0. 761 729E+01 

0.109648E+03 

0.109184E+C3 


T2 

P2 

T 22 

P22 

T21 

P21 


0.460573E+03 

0. 473409E+00 

0. 5 14862E+03 

0. 656193E+00 

0.6 03867E+0 3 

0* 107444E+0 1 


T 3 

P3 

PCBLF 

BLF 

PC8LC 

BLC 

0.114009E+04 

0.818429E+01 

0 . 

0 . 

0 . 

0 . 

PCBLHP 

BLHP 

PCBLI P 

BLIP 

PCBLLP 

BLLP 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

WA 3 

WFB 

WG4 

FAR4 

T 4 

P4 

0.109184E+03 

0.1936926+01 

0.11 1 120E + 03 

0. 177 401E-01 

0.226000E+0 A 

0.777702 E+01 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T50 

P50 

0. 

0 . 

0 . 

0 . 

0.2260006+04 

0. 777702E+0 1 

TFFIP 

CNIP 

DHTCIP 

DHTI 

T 5 

P5 

0. 46220 6E + 02 

0. 197470E+ 01 

0 .5996426-01 

0.195798E+03 

0 • 1 56904E+04 

0. 14046 7 E+Cl 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 

0.213224E+03 

0. 243953E+01 

0.175766E-01 

0.133431E+02 

0.15201 5E+04 

0. 12207 7E+01 

ETAB 

PCBLDU 

ETAD 

DPDUC 

T24 

P24 

0. 9 B3000E+00 

0 . 

0 . 

0.558221 E-01 

0.5 14862E+0 3 

0.61956 3 E+00 

WAD 

WFD 

WG24 

FAR24 

T 25 

P25 

0.1 1 416 8E+03 

0 . 

0.1 14168E+03 

0 . 

0. 5 1486ZE+0 3 

0. 61956 3E+ CO 

ETAF 

ETAI 

ETAC 

ETATHP 

ETATIP 

ETATLP 

0 • 82 9416E + 00 

0.850199E+Q0 

0 • 862589E+00 

0 . 

0 • 899947E+00 

0.898741 E+00 

T 6 

P6 

PS6 

AM6 

V6 

WG6 

0.15201 5E+04 

0. 122077E+0 1 

0 . 1 17732E +01 

0* 238357E+0Q 

0.44342 1E+03 

0.1111206+03 

T7 

WFA 

WG7 

FAR7 

ETAA 

DPAFT 

0.15201 5E+04 

0 . 

0. 1 1 1 120E+03 

0.177 401 E-0 1 

0 . 

0. 

PS6 

AM8 

V8 

PS9 

AM9 

V9 

0. 6 62400E +00 

0.100000E+01 

0.173386E+04 

0.662400E+00 

0.100000E+01 

0. 173386E+C4 

PS28 

AM28 

V28 

PS29 

AM29 

V29 

0.371092E+00 

0* 888725E+00 

0. 9188586+03 

0. 371092E+00 

0.888725E+00 

0.9188586+03 

BPRINT 

DPCOM 

DPWING 

PS38 

AM38 

V38 

0*97002 1E+00 

0.4976216-01 

0.100054E+00 

0.511 908E+00 

0. 100000E+0 1 

0.1100076+04 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRO 

0.53078 1E+00 

0 . 

0.193692E+01 

0.331198E+03 

0.609938E+03 

0.216433E+04 

PCBLI 

WG37 

VJW 

PS39 

AM39 

V39 

0.49239 IE +00 

0. 105910E+03 

0.108357E+Q4 

0.5U908E+00 

0.100000E+01 

0* 110007E+04 

CVDWNG 

FGMWNG 

FGPWNG 

FNWING 

FNMAIN 

P28 

0.985000E+00 

0.3566896+04 

0.710889E+03 

0. 2Z6999E+04 

0* 1 09048E+0 5 

0. 61956 3E+0C 

FFOVFN 

FWOVFN 

FCOVFN 

FMNOFN 

FNOVFD 

P38 

0.794910E-01 

0. 172298E + 00 

0. 74821 1E+00 

0. 827702E+00 

0* 509222E+00 

0.966935E+00 

CVMNOZ 

VJM 

CVONOZ 

VJD 

FGM 

FGP 

0.98 5000E + 00 

0.170785E+04 

0.985000E+00 

0. 905 075E+03 

0. 1267706+05 

0. 26621 7E+04 

MAIN SCNIC CONVERGENT NOZZLE 

FG= 15339.13 


FN= 13174.80 


SFC- 0.52926 


DUCT SUBSONIC CONVERG. NOZZLE 


CONVERGED AFTER II LOOPS 


SD ( I ) * I DES= 1 • * NOW RUN 2 SPOOL-2 STREAM ENGINE WITH ONLY 1 COMPRESSOR 
iDtlli IDFS*1,PRCD$=16, AM=0,ALTP = 0,PCBLIDS=0,FrXMI0DLET0C0MP«.F. ,PCNCDS = 100, 

PCNt DS= 100 « DUMMY SPOOL =.T.*IAMTP=2»T2=31t * SEE FIGURE 8 

FAN DESIGN PRFCF* 0. lOOOOOOOE + OI ETAFCF* 0. 10000000E+01 WAFCF= 0 . 3431 5033E+00 T2DS* 0. 549668 19E+03 

MIDDLE SPUOL DESIGN PRICF= 0. 10000000E+01 ETAICF- 0 . 1 OOOOOOOE+O 1 WAICF= 0. LOOOOOOOE+Ol T22DS* 0. 54966 81 9E+03 

COMPRESSOR DESIGN PRCCF= 0. 21428571E+01 ETACCF= 0. 10000000E+01 WACCF- 0. 41 1 78042 E + 01 T21DS* 0. 549 668 19E + 03 

COMBUSTOR DESIGN WA3CDS= 0. 61 230686E+02 ETABCF- 0. 98300000 E+00 DTCOCF= 0. 10000000E+01 

H.P. TURBINE DESIGN CNHPCF= 0. 101 19289E+01 TFHPCF= 0. 54065683E+00 ETHPCF= 0. 10000000 E+01 DHHPCF- 0.117584396+01 

L.P. TURBINE DESIGN CNLPCF= 0. 10138291 E+01 TFLPCF= 0. 42747655E+00 ETL PCF= 0. 10201 339 E+01 DHL PCF* 0. 22 181990E+00 

DUCT NOZZLE DESIGN A28= 0. 37509597E+01 AM28= 0. 65160510E+00 A29= 0. 37509597E+01 AM29- 0.651605106+00 

TURBINE AREA DESIGN A55 = 0. 10866958E+02 AM55= 0. 23826395E+00 

NOZZLE DESIGN A8= 0. 42454950E+0 1 AM8= 0. 1 OOOOOOOE+O 1 A9= 0. 42454950 E+01 AM.9» 0. lOCCCOCOE+Ol 

OUTPUT AM= 0. ALTP= 0. T4= 2560.00 ETAR= 1.0000 

MIDDLE SPOOL IS DUMMY 
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NO A I RFLDN INTO WING 


, AFT-TURBOFAN 


PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 

0. 1 OCCOOE+03 

0. 100000E+01 

0. 833333E+00 

0. 140000E+01 

0.205890E+0 3 

0. 2000006+03 

PCNI 

CNI 

ZI 

PRI 

WAC I 

WAI 

O.IOOOOCE+Ol 

0. 

0.571429E+00 

0. 100000E+01 

0.41 1 78 OE + O 3 

0.40000CE+03 

PCNC 

CNC 

ZC 

PRC 

WACC 

WAC 

0.1000006+03 

0. 100000E+01 

0.8 14332E + 00 

0. 160000E+02 

0.411 780E+03 

0. 40000 OE+O 3 

T 2 

P2 

T22 

P22 

T21 

P21 

0.54966 9E + 03 

0. 100000E+01 

0. 612687E + 03 

0. 140000E+01 

0 . 549668E + 0 3 

C. 10000C E+01 

T 3 

P3 

PCBLF 

BLF 

PCBLC 

BLC 

0.129556E +04 

0. 160000E+02 

0. 

0. 

0 . 

0. 

PCRLHP 

BLHP 

PC8LIP 

BLIP 

PCBLLP 

BLLP 

0. 

0. 

0. 

0. 

0. 

0. 

W A3 

WFB 

WG4 

FAR4 

T 4 

P4 

0.400000E+03 

0.829205E+01 

0.408292E+03 

0.207301E-01 

0. 256000E+04 

0. 152000E+02 

TFFHP 

CNHP 

OHTCHP 

DHTC 

T50 

P50 

0.92480 1E+02 

0*1 97642E+ 01 

0.600000E-01 

0. 1 80610E+03 

0 • 194300E+0 4 

0.402696 E+01 

IFF I P 

CNIP 

DHTCIP 

DHTI 

T5 

P5 

0 . 

0. 

0. 

0 . 

0.194300E+04 

0. 40269 6E+0 1 

TFFLP 

CNLP 

DHTCLP 

DHTF 

155 

P55 

0.304110E+03 

0.226863E+01 

0.171750E-01 

0. 740236E+0 1 

0.191708E+04 

0.378435 £+01 

ETAB 

PCBLDU 

ETAD 

DPDIJC 

T24 

P24 

0.983000E+00 

0 . 

0 . 

0.500000E-01 

0.612687E+03 

0. 133000E+C 1 

WAD 

WFD 

WG24 

FAR24 

T25 

P25 

0.20000CE+03 

0 . 

0.200000E+03 

0 . 

0 . 612687E+0 3 

0* 133000E+01 

ETAF 

ETAI 

ETAC 

ETATHP 

ETATIP 

ETATLP 

0.8 80000E +00 

0.100000E+01 

0. 860000E+00 

0. 900000E+00 

0 . 

0.90000CE+00 

T 6 

P6 

PS6 

AM6 

V6 

WG6 

0. 1 91708E+04 

0* 378435E+01 

0.364616E+01 

0.238 264E+00 

0.494024E+0 3 

0.408292 E+C3 

T7 

WFA 

WG7 

FAR7 

ETAA 

OPAFT 

0.19 1708E+04 

0 . 

0.408292E+03 

0. 207301E-01 

0 . 

0 . 

PS8 

AM8 

V8 

PS9 

AM9 

V9 

0.206379E+01 

0. 100000E+01 

0. 194037E +04 

0. 205379E+01 

0. 100000E+0 1 

0* 194037E+04 

PS28 

AM28 

V28 

PS2 9 

AM29 

V29 

0.1 OOOOOE+O 1 

0* 651605E+00 

0.759245E+03 

O.IOOOOOE+Ol 

0.651 605E+00 

0.759245E+03 

SPRINT 

DPCOM 

DPWING 

PS38 

AM38 

V38 

0 . 

0.500000E-01 

0 . 

0 . 

0 . 

0 . 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRO 

0.500000E+00 

0 . 

0.829205E+01 

0. 608 292E+03 

0 . 

0 . 

PCBLI 

WG37 

VJW 

PS39 

AM39 

V39 

• 0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

CVDWNG 

FGMWNG 

FGPWNG 

FNWING 

FNMAIN 

P28 

0.985000E+00 

0 . 

0 . 

0 . 

0.384605E+05 

0. 133000E+01 

FFOVFN 

FWOVFN 

FCOVFN 

FMNOFN 

FNOVFD 

P38 

0. 1 20872E+00 

0 . 

0.8791286+00 

0* 100000E+01 

0.100000E+01 

0 . 

CVMNOZ 

VJM 

CVDNOZ 

VJO 

FGM 

FGP 

0.985000E+00 

0.191127E+04 

0.985000E+00 

0.747 856E+03 

0.289030E+05 

0. 95575 3E+04 


MAIN SONIC CONVERGENT NOZZLE 
OUCT SUBSONIC CONVERG. NOZZLE 

CONVERGED AFTER l LOOPS 

FG= 38460 

.51 

FN= 38460 

.51 

SFC= 0.' 

77616 

COMMON 

0.833333E+00 

0.100000E+03 

0. 571429E+00 

0.100000E+01 • 

0.814332E+00 

0 .1000006+03 

0.2560C0E+04 

O.lCOOOOE+03 

0* 100000E+03 

0.256000E+04 

0. 100000E+03 

0. 

0 • 100000E+01 

0 .1000006+01 

C.IOOOCOE+Ol 

0. 833333E+00 

0. 100000E+03 

0* 140000E+01 

0. 880000E+00 

0. 200000E+03 

0* 100000F+01 

O.IOOOOOE+Ol 

0. 343150E+00 

0.814332E+00 

0. 100000E+03 

0.160000E+02 

0. 860000E+00 

0.4000006+03 

0.214286E+01 

O.ICOOOOE+Ol 

0.411780 E+01 

0. 256000E +04 

0 . 

0 • 126444E+04 

0. 983000E+00 

0. 612307E+02 

0. 500000 E-01 

0 • 100000E+01 

0. 983C00E+00 

0.5C00G0E+02 

0.200000E+01 

0.900000E+00 

0. 540657E+00 

0* 1011936+01 

0. 100000E+01 

0 • 1 17584E+01 

C. 549668 E+03 

0. 130000E+03 

0.230000E+01 

0.900000E+00 

0. 427477E+00 

0. 101383E+01 

0. 10201 3E+01 

0.221820E+00 

0. 549668E+03 

0. 

0. 

0. 

0. 

0. 353607E+04 

0. 5000006-01 

0. 

0. 

0. 

0. 

0. 

0. 

0.472389E+04 

0. 

0. 

C. 

0.108670E+02 

0 . 

0.108670E+02 

0.108670E+02 

0.424549E+01 

0.424549E+01 

0.375096E+01 

0.375096E+01 

0.364616E+01 

0.238264E+C0 

0.985000E+00 

0. 985000E+00 

0. 

0. 

0. 

0. 

0. 549670E +03 

0. 100000E+01 

0 • 131340E+U3 

0. 160493E+01 

0. 54966 8E+ 03 

0.100000E+01 

0.13 1340E+03 

C. 160493E+01 

0 • 549668E + 03 

0 • lOQOOOE+Ol 

0 • 131340E+03 

0.1604936+01 

0. 129556E+04 

0.160000E+02 

0.31 5694E+03 

C . 162 558E+01 

0.2 56000E +04 

0. 152000E+02 

0.681393E+03 

0. 182706E+01 

0.194300E+04 

0.402696E+01 

0 . 500783E + 03 

C. 183758E+01 

0.191708E+04 

0. 378435E+01 

0.493381E+03 

0. 163800E+01 

0 . 

0 . 

0 . 

0 . 

0.1 OOOOOE +01 

0. 140000E+01 

0.880000E+00 

0 . 205890E+03 

0.200000E+03 

0.400000E+03 

0 .4082926+03 

0.207301E-01 

0. ICOOuOE +01 

0 • 160000E+02 

0 • 860000E +00 

0.411780E+03 

0.400000E+03 

0.983000E+00 

0.500000E-01 

0 . 

0. 2C0000E +01 

0. 900000 E +00 

0.705506E-01 

0.180610E+03 

0 . 

0.408292F+03 

0 .2073016-01 

0. 114970 E+04 

0 . 230000E +01 

0.900000E+00 

0.380975E-02 

0. 740236E+01 

0 . 

0.4082926+03 

0.207301E-01 

0 . 

0 . 

0 . 

0 • 100000E+01 

0. 833333E+00 

0. 100000E+03 

0.814332E+00 

0 • 1 CCOOOE+03 

0.829205E+01 

0. 5COOOOE +02 

0. 130000E+03 

0 . 

0 . 

0 . 

0 . 

0 . 

C. 

0.1 C OOOOE +01 

0.200000E+03 

0.400000E+03 

0 . 

0 . 

0. 3 15694E+03 

0 . 

0 . 

0. 549668E+03 

0. 100000E+01 

0. 131340E+03 

0. 1604936+01 

0.612687E+03 

0. 140000E+01 

0.146452E+03 

C . 160768E+01 

C.612637E+03 

0 • 133000 E+01 

0 . 146451E+03 

0. 161140E+01 

0. 61268 7E+ 03 

0.133000E+01 

0.146451E+03 

0. 1611 AOE+Ol 

0. 6 126B7E +03 

0. 133000E+01 

0. 146451E + 03 

0. 161140E+01 

0.612687E+03 

0. 133000E+01 

0 ■ 14645 1E + 03 

0.16U40E + 01 

0. 2C0000E +03 

0 . 

0 • 200000E + 03 

0 . 

0 . 

0.500000E-01 

0 .500000E + 00 

C. 

0.564699E*03 

0 • 100000 E+01 

0.759245E+03 

0.651605E+00 

0. 564699E+03 

O.IOOOOOE+Ol 

0 .7592456 + 03 

0.651605E+00 
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0.191708E+04 
0.829205E+01 
0.191708E+04 
0. 191708E+04 
0. 408292E +03 
0.364616E+01 
0* 165020E+04 
0. 

0.289030E+05 

0.612687E+03 
0* 4COOOOE +03 
0.199826E+01 
0.1C0000E+03 
0.220000E+01 
- 0 . 

0. 

0. 

0. 

0 • 

0.120872E+00 
0. 924801E+02 


0.378435E+01 
0 • 408292 E+03 
0.378435E+01 
0.37 8435E + 01 
0, 

0.494024E+03 

0.2063796+01 

0. 

0.955753E+04 

0.140000E+01 
0. 5714296+00 
0.899947E+00 
0.220000E+01 
0.900000E+00 
0 . 

0* 100000E+00 

0. 

0. 

0*384605 E+05 
0*879128 E+OO 
0 . 


0.493381E+03 
0* 20730 IE-01 
0 *4933816+03 
0.493380E+03 
0.408292E+03 
0.238264E+00 
0.194037E+04 
0*7478566+03 
0,829205E+01 

0 * 146452E+03 
0* 100000E + 01 
0.867247E-01 
0*8700006+00 
0.1081576+01 
0* 5496686 + 03 

0* 

0. 

0. 

0* 

0*1000006+01 

0.304110E+03 


0* 1 83800E+01 
0* 

0* 1838006+01 
0.1838006+01 
0.207301E-01 
0* 189994E+04 
0 . 1000006+01 
0.4648826+04 
0.6082926+03 

0* 160788E+01 

0. 

0.195798E+03 
0.4000006+03 
0. 101 193E+01 
0. 400000E+03 

0. 

0. 

0. 

0. 

0.1000006+01 
0. 197642E+01 


0. 612687E+03 
0. 200000E+ 03 
0.1917086*04 
0.191 70 8E+04 

0. 

0. 3645856+01 
0.165020E+04 
0.191127E+04 
0. 138201E-01 

0. 194300E+04 
0. 100000E+01 
0. 

0. 1000006+01 

0. 


0. 

0. 

0. 

0. 

O.OOOOOOE-38 

0. 


0.133000E+01 

0* 

0.378435E+01 
0. 378435E+01 
0. 

0.4940206+03 

0.2063796+01 

0.242542E+05 

0.384605E+05 

0.4026966+01 

0.100000E+01 

0. 

0. 100000E+01 

0. 144628E+01 


0. 

0. 

0.9850006+00 

0. 

O.OOOOOOE-38 
0. 226863E+01 


0 .14645 1E+03 
0 *1000006 + 01 
0.4933806+03 
0.493380E+03 
0.494024E+03 
0.2382646+00 
0 .1940376 + 04 
0* 

0.384605E+05 

0.500783E+03 
0 .4117806+03 
0 . 100000E+03 
0 . 100000E+01 
0.41 1780E+03 


0. 

0. 

0. 

0. 

0.384605E+05 

0.600000E-01 


0 • 161 140E + 01 
C. 

0. 1838 COE+Ol 
0.1838C0E+01 

0. 

0. 

C • lOOOCOE+Ol 
0 . 955753 E+04 
0.7761576+00 

0.183758E+01 
C • 1200C0 E+03 
0. 833333E+Q0 
C.12CGG06+Q3 
0. 400CQ0E+03 


0. 

C. 

0. 

0. 

C. 

0. 1806 10E +03 


$DIl)tAM».6»ALTP= 25000* I AMTP=0* T4=2260*+ RUN AT ALTITUDE AT REDUCED T4-STD DAY 


OUTPUT 


AM= 0.600 ALTP=* 25000. 


T 4* 2260.00 


ETAR = 1.0000 


MIDDLE SPOOL IS DUMMY 


NO AIRFLOW INTO WING , AFT-TURBQFAN 


PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 

0.965218E+02 

0.105445E+01 

0.719983E+00 

0* 133636E+01 

0.226850E+03 

0. 1 13965E+03 

PCNI 

CNI 

ZI 

PRI 

WACI 

WAI 

0.1000006+01 

0. 

0.833333E+00 

O.IOOOOOE+Ol 

0. 435673E+03 

0.218873E+03 

PCNC 

CNC 

zc 

PRC 

WACC 

WAC 

0.94303 5E+02 

0.103022E+01 

0.832563E+00 

0.1732366+02 

0.435673E+03 

0* 2 1887 3 E+03 

T 2 

P2 

T22 

P22 

T2i 

P21 

0.460573E+03 

0. 473409E+00 

0.5148356+03 

0.656317E+00 

0.4605736+03 

0.473409E+C0 

T3 

P3 

PCBLF 

BLF 

PC8LC 

BLC 

0.112613E+04 

0.820116E+01 

0. 

0. 

0. 

0. 

PCBLHP 

BLHP 

PCBLI P 

BLIP 

PCBLLP 

BLLP 

0. 

0. 

0. 

0. 

0. 

0. 

W A3 

WFB 

WG4 

FAR 4 

T 4 

P4 

0*21887 3E+03 

0.392827E+01 

0.222802E+03 

0» 179477E—01 

0.2260006+04 

0.7793046+01 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T 50 

P50 

0.9248396+02 

0. 198369E+01 

0.604594E-01 

0.1595946+03 

0.170054E+04 

0. 204749E+C 1 

TFFIP 

CNIP 

DHTCIP 

DHT I 

T5 

P5 

0. 

0. 

0. 

0. 

0. 170054E+04 

0. 204749E+01 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P 55 

0.305344E+03 

0. 234063E+01 

0.1 76003E-01 

0. 663962E+01 

0. 167661E+04 

0. 192098E+0 1 

ETAB 

PCBLDU 

ETAD 

DPOUC 

T 24 

P24 

0.983000E+00 

0. 

0. 

0.557109E-01 

0.514835E+03 

0. 619753E+OC 

WAD 

WFD 

WG24 

FAR24 

T25 

P25 

0.1 13965E+03 

0. 

0.113965E+03 

0. 

0. 514835E+0 3 

0.61975 3E+00 

ETAF 

ETAI 

ETAC 

ETATHP 

ETATIP 

ETATLP 

0.830336E+00 

0. 100000E+01 

0.8553286+00 

0.899537E+00 

0. 

0. 8991 71 E+CC 

T 6 

P6 

PS6 

AM6 

V6 

WG6 

0. 16766 1E+04 

0.1920986+01 

0*1 85293E+01 

0.2384186+00 

0.464430E+0 3 

0.222802 E+03 

T 7 

WFA 

WG7 

FAR7 

ETA A 

DRAFT 

0.1676616+04 

0. 

0.2228026+03 

0.179477E-01 

0. 

0. 

PS 8 

AMS 

V8 

PS9 

AM9 

V 9 

0.104502E+01 

0. 100000E+01 

0.181849E+04 

0. 104502E+01 

0. 100000E+0 1 

0. 181849E+04 

PS28 

AM28 

V28 

PS29 

AM29 

' V29 

0. 37109 2E +00 

0.887317E+00 

0.917579E+03 

0* 371092E+00 

0.887317E+00 

0. 917579E+0 3 

BPRINT 

DPCOM 

DPWING 

PS38 

AM38 

V38 

0. 

0.497637E-01 

0. 

0. 

0. 

0. 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRD 

0.5206896+00 

0. 

0.392827E+01 

0. 336767E+03 

0.609938E+03 

0.2160486+ C4 

PCBLI 

WG37 

VJW 

PS39 

AM3 9 

V39 

-0. 

0. 

0. 

0. 

0. 

0. 

CVDWNG 

FGMWNG 

FGPWNG 

FNWING 

FNMAIN 

P28 

0.985000E+00 

0. 

0. 

0. 

0.1949986+05 

0.619753E+CC 

FFOVFN 

FWOVFN 

FCOVFN 

FMNOFN 

FNOVFO 

P38 

0.53383CE-01 

0. 

0.9466 17E+00 

O.IOOOOOE+Ol 

0.507007E+00 

0. 

CVHNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

0.985000E+00 

0.1791226+04 

0.985000E+00 

0.9038166+03 

0.1 56054E+05 

0. 605485 E + 04 

MAIN SCNIC CONVERGENT NOZZLE 

FG= 21660.25 


FN= 19499.77 


SFC= 0.72523 


DUCT SUBSONIC C0NV6RG. NOZZLE 


CONVERGED AFTER 10 LOOPS 


50 



$D( 1 ) * IDES=lf * NOW RUN 3 SPOOL.- 2 STREAM AFTFAN, FIGURE 9 

$D( l } , IDES-1, lAMTP=2,T2*3lt AM=0,ALTP=0,DUMMYSPOOL*.F. ,PCNIDS«100, 

PRIDS“2.2fPRCDS=16/2*2» 

FAN DESIGN PRFCF= 0. lOOOOOOOE+O 1 ETAFCF= 0, 10000000E+01 WAFCF- 0. 34315033E+00 T20S= 0. 54966819E+03 

MIDDLE SPOOL DESIGN PRICF= 0. 20000000E+01 ETA ICF = 0. 98863635E+0C WAICF* 0. 13726013E+01 T220S= 0. 549E6 81 9E+03 

COMPRESSOR DESIGN PRCCF= 0. 89610390E+00 E T ACCF= 0. XOOOOOOOE+Ol WACCF* 0.2I260785E + 01 T210S= 0. 70 9 207 26E+03 

COMBUSTOR DESIGN WA3C0S= 0. 61595295E+02 ETABCF= 0. 98300000E+00 DTCOCF= 0. lOOOOOOOE+Ol 

H. P. TURBINE DESIGN CNHPCF= 0. 10 1 19289E+01 TFHPCF= 0.54078318E+00 ETHPCF= 0 . 10000000 E+01 D HHPCF= 0. 95 6902 90E+ 00 

I. P* TURBINE DESIGN CNIPCF= 0. 99847737E+00 TFIPCF= 0. 507 6782 8E + 00 ETIPCF= 0. 10000000 E+01 DHIPCF= 0. 82 9 367 38E+0 C 

L.P. TURBINE DESIGN CNLPCF= 0* 10101420E+01 TFLPCF= 0* 41 838630E+00 ETLPCF= 0. 1020 1339E+01 DHLPCF= 0. 22349 <4 1E+00 

DUCT NOZZLE DESIGN A28= 0, 37509597F+01 AM28= 0. 651605 10E+00 A29= 0. 37509597E+01 AM29= 0. 65 160 5106+00 

TURBINE AREA DESIGN A55= 0. 11104701E+02 AM55= 0. 23826402 E+00 

NOZZLE DESIGN A8= 0. 43385243E+0 1 AM8= 0 . lOOOOOOOE+Ol A9= 0, 43385243E+01 AM9= 0. 100C CC00E+01 


OUTPUT 


AM = 0. 

ALTP = 

o 

II 

2560.00 


ETAR = 1.0000 

THREE SPOOL 

ENGINE 







NO AIRFLOW 

INTO WING 

» AFT-TURBOFAN 








PCNF 

CNF 

ZF 

PRF 

W AFC 

WAF 



0.100000E+03 

0. 100000E+01 

0.833333E+00 

0. 140000 E+0 1 

0.205890E+03 

0.200000E+03 



PCNI 

CNI 

ZI 

PRI 

MAC I 

WA I 



0.100000E+03 

0.10000QE+01 

0.8 33333E + 00 

0.220000E+01 

0.411 780E + 0 3 

0. 40000 CE + O 3 



PCNC 

CNC 

zc 

PRC 

WACC 

WAC 



0* 1 OCCOOE+03 

0.100000E+01 

0.814332E+00 

0. 727 27 3 E+0 1 

0.2 12608E + 0 3 

0.40000CE+03 



T 2 

P2 

T22 

P22 

T 21 

P21 



0.549668E+03 

0.100000E+01 

0. 612687E + 03 

0. 140000E+0I 

0.709207E+03 

0.220000E+01 



T3 

P3 

PCBLF 

BLF 

PCBLC 

BLC 



0*131 103E+04 

0.160000E+02 

0. 

0. 

0. 

0 . 



PCBLHP 

BLHP 

PCBLI P 

BLIP 

PCBLLP 

8LLP 



0. 

0. 

0. 

0. 

0 . 

0. 



W A3 

WFB 

WG4 

FAR4 

T4 

P4 



0.400000E+03 

0* 819668E+01 

0.408197E+03 

0. 204917E-01 

0. 256000E+04 

0.152000E+02 



TFFHP 

CNHP 

DHTCHP 

DHTC 

T50 

P50 



0.924585E+02 

0*1976426+01 

0.600000E-01 

0. 146980E+03 

0.205983E+04 

0. 53332 7E+C 1 



TFFIP 

CNIP 

DHTCIP 

DHT I 

T5 

f>5 



0.23637CE+03 

0.220335E+01 

0.220000E-01 

0. 375838 E + 02 

0 • 192890E+04 

0.392608E+01 



TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 



0.310718E+03 

0.227691E+01 

0.1717506-01 

0* 740409E+01 

0*1 902926+04 

0. 36878CE+0 1 



ETAB 

PCBLDU 

ETAD 

DPDUC 

T 24 

P 24 



0*98 300 OE + OO 

0. 

0 . 

0* 500000E-01 

0. 612687E + 0 3 

0. 133000E+01 



WAD 

WFD 

WG24 

FAR 24 

T25 

P25 



0.200000E+03 

0 . 

0.2 000O0E + 03 

0 . 

0 • 6 12 687E+0 3 

0. 13300CE+ C 1 



ETAF 

ETAI 

ETAC 

ETATHP 

ETATI P 

ETATLP 



0. 8 8C0O0E+O0 

0 • 870000E+00 

0 • 860000E+00 

0. 900000E+00 

0.900000E+00 

0.900000E+CC 



T 6 

P6 

PS6 

AM6 

V6 

WG6 



0.X90292E+04 

0.368780E+01 

0.355306E+01 

0. 238264E+00 

0 . 492 323E+0 3 

0. 408 19 7E+03 



T 7 

WF A 

WG7 

FAR 7 

ETAA 

DPAFT 



0 . 1 90292E+04 

0. 

0. 408197E+03 

0.204917E-01 

0. 

0 . 



PS8 

AMS 

V8 

PS9 

AM9 

V9 



0*20 1067E+0 1 

0. 100000E+01 

0.193344E+04 

0.201067E+01 

0*1 OOOQOE+O 1 

0. 193 344 E+04 



P S 28 

AM28 

V28 

PS29 

AM29 

V29 



0* 100000E+0 1 

0* 651605E + 00 

0. 759245E+03 

0. 100000E +0 1 

0*6 51 605E + 0 0 

0. 759245 E+C3 



BPRINT 

DPCOM 

DPWING 

PS38 

AM3 8 

V38 



0 . 

0* 500000E-01 

0. 

0. 

0. 

0. 



BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRD 



0. 500000E +00 

0. 

0. 819668E+01 

0.608197E+03 

0, 

0. 



PCBLI 

WG37 

VJW 

PS39 

AM39 

V39 



0.149012E-07 

0. 

0. 

0. 

0. 

0. 



CVDWNG 

FGMWNG 

FGPWNG 

FNWING 

FNMAIN 

P28 



0. 9 85000E + 00 

0. 

0. 

0. 

0 . 3 80899E + 0 5 

0.13300CE+C1 



FFQVFN 

FWOVFN 

FCOVFN 

FMNOFN 

FNDVFD 

P 38 



0. 12204 8E+00 

0. 

0. 877952E+00 

0. iOOOOOE+Ol 

0.1000006+01 

0. 



CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 



0.985COOE+00 

0* 19Q444E+04 

0. 985000E+00 

0.747 856E+03 

0.288 107E+0 5 

0.927 924 E+04 

MAIN SCNIC 

CONVERGENT 

NOZZLE 

FG- 38089.93 


FN= 38089.93 


SFC= 0. 7 74f: S 

DUCT SUBSONIC CONVERG. 

NOZZLE 







CONVERGED AFTER 1 LOOPS 


51 



COMMON 

0.833333E+00 

0. 1000006+03 

0. 833333E+00 

0.100000E+03 

0. 814332E+00 

0 .1000006+03 

0* 2560C0E+Q4 

0. 1COOOOE+03 

0.100000E+03 

0.2560006+04 

0. 100000E+03 

0. 

0.100000E+01 

0.1000006+01 

0.1000C06+01 

0.833333E+00 

0.100000E+03 

0. 1400006+01 

0.880000E+00 

0 • 200000E+03 

0.100000 E+01 

0.100000E+01 

0.3431506+00 

0.814332E+00 

0.100000E+03 

0.727273E+01 

0. 860000E+00 

0. 400000E+03 

0.8961046+00 

O.ICGOOOE+Ol 

G .2126C8E+01 

Q. 256000E +04 

0. 

0.124897E+04 

0. 983000E+00 

0.615953E+02 

0. 5000006-01 

O.IOCOOOE+Ol 

0. 983 COO E+00 

0.500000E+02 

0.200000E+01 

0.900000E+00 

0. 540783E+00 

0* 101 193E+01 

0* 1Q0000E+01 

0.956903E+00 

0.5496686+03 

0.130000E+03 

0.230000E+01 

0.900000E+00 

0.418386E+00 

0. 10101 4E+01 

0. 1020136+01 

0.22 3494E+00 

C.709207E+03 

0. 

0. 

0. 

0. 

0.353607E+04 

0.500000E-01 

0. 

0. 

0. 

0. 

0. 

0. 

0# 48285 1E + 04 

0. 

0. 

C. 

0.111047E+02 

0 • 

0.1 1 1047E+02 

0. 11 1047E+02 

0.433852E+01 

0.4338526+01 

0.375096E+01 

0.3750966+01 

0.355306E+01 

0.238264E+00 

0.985000E+00 

0.985000E+00 

0. 

0. 

0. 

0 . 

0.549670E+03 

0* 100000E+01 

0.131340E+03 

0. 160493E+01 

0* 549668E+03 

0.100000E+01 

0.1313406+03 

0.1604936+01 

0.709207E+03 

0.220000E+01 

0.1 69694E+03 

0* 161211E+01 

0.13U03E + 04 

0.160000E+02 

0.31 96866+03 

0.162865E+01 

0.256000E+04 

0* 152000E+02 

0.681183E+03 

0* 182692E+01 

0.192890E+04 

0.392608E+01 

0.496619E+03 

0.1837136+01 

0* 190292E+04 

0.36B780E+01 

0.489215E+03 

0.183756E+01 

0. 

0. 

0. 

0. 

O.ICOOOOE+Ol 

0.140000E+01 

0.860000E+00 

0.205890E+03 

0.200000E+03 

0 ■ 400000E+03 

0 .40 8197E+ 03 

C. 2049 17E-01 

0.100000E+01 

0, 727273 E+01 

0 » 860000E+00 

0.2126086+03 

0.400000E+03 

0.903000 E+00 

0.5000006-01 

0. 

0.2C0000E+01 

0.900000E+00 

0.574142E-01 

0. 146980E+03 

0. 

0.4081976+03 

0. 20491 7E-01 

0. 1149 70E+04 

0.230000E+01 

0* 900000 E + OQ 

0.383851E-02 

0.740409E+01 

0. 

0.4081976+03 

0.204917E-01 

0 . 

0. 

0. 

0. 100000E+01 

0. 833333E+00 

0.100000E+03 

0.8143326+00 

0.100000E+03 

0.819668E+01 

0.5C0000E+02 

0 . 130000E+03 

0. 

0. 

0. 

0. 

0. 

0. 

0* ICOOOOE+Ol 

0.2000006+03 

0.400000E +03 

0. 

0. 

0. 319686E+03 

0. 

0. 

0. 709207E+03 

0* 220000E+01 

0.169694E+03 

0. 1612 1 1E+01 

0.612687E+03 

0.140000E+01 

0.1464526+03 

0.1607886+01 

0.6126B7E+03 

0.133000E+01 

0. 146451E+03 

0.161140E+01 

0.6126876+03 

0.133000E+01 

0. 1464516+03 

C. 1611406+01 

0.612687E+03 

0.13300DE+01 

0.146451E+03 

0.161140E+01 

0.6126876+03 

0.1330006+01 

0 .1464516 + 03 

0.1611406+01 

0.200000E+03 

0 • 

0 • 200000E+03 

0. 

0. 

0. 500000E-01 

O.SOCOOOE+OO 

0 . 

0* 5646 99E +03 

0* 1000006+01 

0.759245E+03 

0.651605E+00 

0.5646996+03 

0. 100000E+01 

0.759245E+03 

0. 6516056+00 

0.190292E+04 

0.3687806+01 

0.489215E+03 

0.183756E+01 

0.6126B7E+03 

0.133000E+01 

0.146451E+03 

0.1611406+01 

0.819668E+01 

0.408197E+03 

0.204917E-01 

0. 

0.2000006+03 

0. 

0.100000E+01 

0. 

0.190292E+04 

0.3687806+01 

0.489215E+03 

0* 183756E+Q1 

0.1902926+04 

0.368780E+01 

0.489214E+03 

0.183756E+01 

0.190292E+04 

0.3687806+01 

0.489214E+03 

0.183756E+01 

0.1902926+04 

0.3687806+01 

0.4892146+03 

C. 1837566+01 

0.408197E+03 

0. 

0.408197E+03 

0.2G4917E-01 

0. 

0 . 

0.492323E+03 

0. 

0* 355306E+01 

0.4923236+03 

0.238264E+00 

0.188588E+04 

0. 355277E+01 

0.492318E+03 

0.238264E+00 

0. 

0.163748E+04 

0.2010676+01 

0. 1933446+04 

0. 100000E+01 

0. 163748E+04 

0.201067E+01 

0.193344E+04 

0.100000 E+01 

0 . 

0. 

0.747856E+03 

0.464882E+04 

0.1904446+04 

0.2416196+05 

0. 

0 .9279246+04 

O.2081O7E+O5 

0.927924E+04 

0.819668E+01 

0. 608197E+03 

0.13661 1E”01 

0. 380899E+05 

0.380899E+05 

C. 774694E+00 

0.612687E+03 

0.140000E+01 

0.146452E+03 

0.160788E+01 

0. 205983E+04 

0. 533327E+01 

0.5342036+03 

0. 183496E+01 

0.4C0000E+03 

0.833333E+00 

0 • 100000E+03 

0.100000E+01 

0.220000E+01 

0* 870000E+00 

0 .4 1 1780E+03 

0. 1200C0E+03 

0.220000E+01 

0.900000E+00 

0.1824616-01 

0# 375838E+02 

0. 

0 . 

0. 100000E+03 

0.8333 33E+00 

0.100000E+03 

0.220000E+01 

0.870000E+00 

0.4000006+03 

0. 2000006+01 

0.933636E+00 

0.137260E+01 

0. 120000E+03 

0.2200C0E+01 
0* 1490 12E-07 

0.900000E+00 

0. 

0.507678E+00 

0.549668E+03 

0. 998477E+00 
0# 400000E+03 

0 . 

0. 829367E + 00 

0 #41 1780E+03 

0.4000COE+03 

0.381470E-05 

0.1000006+00 

0. 

0. 

0 . 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 . 

0. 

0. 

0 . 

0. 

0. 

0. 

0 . 

0.985000E+00 

0 . 

C. 

0 . 

0.380899E+05 

0 . 

0 . 

0 . 

0 . 

0 . 

C • 

0* 122048E +00 

0. 8779526 + 00 

0.100000E+01 

0.100000E+01 

O.OOOOOOE-38 

0 . 

0 .3808996+05 

0 . 

0.924585E+02 

0* 236370E+03 

0.310718E+03 

0. 197642E+01 

0.220335E+01 

0.227691E+01 

0 .6000006-01 

0. 146980E+03 


SDt 1 l»AM=.6*ALTP=25000» IAMTP«0, T4-2260» ♦ RUN AT ALTITUDE AT REDUCED T4-STD DAY 


OUTPUT 

AM = 0.600 

AL TP* 25000. T4= 

2260,00 


ETAR= 1.0000 

THREE SPOOL ENGINE 







NO AIRFLOW INTO WING 

, AFT-TURBOFAN 







PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 


0.962024E+02 

0.105096E+01 

0.714546E+00 

0. 138085E+01 

0.225986E+0 3 

0.113531 E+03 


PCNI 

CNI 

21 

PRI 

WACI 

WAI 


0.937649E+02 

0.1024336+01 

0. 822534E+00 

0. 224690E+01 

0.428468E+03 

0. 2152546+03 


PCNC 

CNC 

ZC 

PRC 

W ACC 

WAC 


0. 93354 8E+02 

0. 101339E+01 

0.830442E+00 

0.757939E+01 

0.217951E+03 

0.215216E+C3 


T 2 

P2 

T22 

P22 

T21 

P21 


0.460573E+03 

0 • 473409E + 00 

0.514057E+03 

0* 653708E+00 

0.601857E+03 

0. 106370E+0 1 


T 3 

P3 

PC8LF 

BLF 

PCBLC 

BLC 


0.11391 5E+04 

0. 8062206+01 

0. 

0. 

0. 

0. 


PCBLHP 

BLHP 

PCBLIP 

BLIP 

PCBLLP 

BLLP 


0. 

0. 

0. 

0. 

0. 

0. 


WA3 

WFB 

WG4 

FAR4 

T 4 

P4 


0.2152166+03 

0.382096E+01 

0.219037E+03 

0. 1775406-01 

0.226000E+04 

0.766098E+01 


TFFHP 

CNHP 

OHTCHP 

DHTC 

T 50 

P50 


0.9243886+02 

0.196373E+01 

0.599702E-01 

0. 12961 6E+03 

0.180768E+04 

0.26791 2E+01 


TFFIP 

CM IP 

OHTCIP 

DHTI 

T5 

P5 


0.23653 1E+03 

0.220536E+01 

0.22171 IE -01 

0. 332470E+02 

0. 1 68858E+04 

0. 196577E+01 


TFFLP 

CNLP 

DHTCLP 

DHTF 

T 55 

P55 


0.3115656+03 

0. 2341 1 3E+0 1 

0. 1 75597E-01 

0. 6631496+01 

0. 166464E+04 

0. 184363 E+O l 


ETAB 

PCBLOU 

ETAD 

DPOUC 

T24 

P24 


0.9830006+00 

0. 

0. 

0. 556 780E-01 

0 • 5 14O57E+0 3 

0*61731 16+CC 


WAD 

WFD 

WG24 

FAR24 

T25 

P25 


0.1135316+03 

0. 

0.1 13531E+03 

0 . 

0.514057E+03 

0.61731 16+ CO 


ETAF 

ETAI 

ETAC 

ETATHP 

ETATIP 

FTATLP 


0.8316636+00 

0. 850485E+00 

0.855426E+00 

0.8992326+00 

0.899013E+00 

0. 699308 E + OC 


T 6 

P6 

PS6 

AMS 

V6 

WG6 
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0.1 6 6464E + 04 

0.184363E+01 

0.177848E+01 

0, 238056E+00 

0* 462 190E+03 

0.219037E+03 


T7 

WF A 

WG7 

FAR 7 

ETAA 

DPAPT 


0*1 66464E+04 

0 * 

0.219037E+03 

0. 177540E— 01 

0 . 

0 * 


PS8 

AM8 

V8 

PS9 

AM9 

V9 


0.100131E+01 

0.100000E+01 

0.181220E+04 

0. 100131E+01 

0. 100000E + 0 1 

0.18122CE+C4 


PS28 

AM28 

V28 

PS29 

AM29 

V29 


0.371092E+00 

0.883755E+00 

0.913709E+03 

0.371092E+00 

0.883755E+00 

0.913709E+03 


BPRINT 

DPCOM 

DPWING 

PS38 

AM38 

V38 


0 . 

0* 497663E— 01 

0 . 

0 . 

0 . 

0 . 


BYPASS 

HPEXT 

WFT 

WGT 

V A 

FRD 


0*5 2 7427E+00 

0 . 

0.382096E+01 

0.332605E+03 

0.609938E+03 

0.215225E+04 


PCBLI 

WG37 

VJW 

PS3 9 

AM39 

V39 


0. 172958E-03 

0 • 

0 . 

0 . 

0 . 

0 . 


CVDWNG 

FGMWNG 

FGPWNG 

FNWING 

FNMAIN 

P28 


0.985000E+00 

0 . 

0* 

0 . 

0. 189626E+05 

0.61731 1 E+00 


FFOVFN 

FWOVF.N 

FCOVFN 

FMNOFN 

FNOVFD 

P38 


0.5397B6E-01 

0 . 

0.946059E+00 

0. 100004E+01 

0. 49781 9E+0 C 

0 . 


CVMN02 

VJM 

CVDNOZ 

VJO 

FGM 

FGP 


0.985000E+00 

0.178502E+04 

0. 985000E+00 

0.900003E+03 

0.1 53280E+0 5 

0. 57861 5 E + 04 

MAIN 

SCNIC CONVERGENT NOZZLE 

FG= 21114.14 


FN= 18961.89 


SFC= 0.72543 

DUCT 

SUBSONIC CONVERG. NOZZLE 







CONVERGEO AFTER 24 LOOPS 

SEND , #0 THIS CARD TERMINATES THE READING IN OF THE DATA, A *D(1) CARD WITHOUT 

* ANY DATA FOLLOWING WOULD DO THE SAME, WITHOUT ONE OF THESE THE LAST CASE 

* WOULDNT RUN 

*01* UNITOS, EOF. REC= 00000 FIL= C0002 
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CONCLUDING REMARKS 


The computer code (GENENG n) presented herein has proved to be an indispensable 
tool for steady-state cycle analysis of various types of jet engines. Nine basic engine 
types have been illustrated: 

(1) Three-spool, three-stream turbofan 

(2) Two-spool, three-stream, boost -fan turbofan 

(3) Two-spool, three-stream, supercharged-compressor turbofan 

(4) Three -spool, two-stream turbofan 

(5) Two-spool, two-stream turbofan 

(6) Three -spool, three -stream aft -fan turbofan 

(7) Two-spool, three-stream, aft -fan turbofan 

(8) Two-spool, two-stream, aft -fan turbofan 

(9) Three-spool, two-stream aft -fan turbofan 

Some of these engines are candidates for STOL aircraft propulsion. 

This program is valuable for many applications because it has the capability of 
studying a broad range of engine types with different design characteristics, while it 
also has low-execution-time characteristics. By appropriately choosing among the 
options built into the program, other engine types can be simulated. 

The program has proven itself to be easy to use especially in terms of input re- 
quirements. It is felt that with a minimum of effort, the reader can become proficient 
in using the computer code. The code is available to be reproduced on the requestor’s 
tape upon application to the authors. 

Lewis Research Center, 

National Aeronautics and Space Administration, 

Cleveland, Ohio, October 1, 1971, 

132-15. 
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APPENDIX A 


PROGRAM LISTING 

$IBFTC GEN2 DECK 

COMMDN/LOOPPR/KKGO, PRFNEW, PRCNEW 1 

DATAII I/O/ 2 

COMMON/TERBHI/DHHISV »TFHISV»CNHISV*ETHI SV» DHHPDS 3 

COMMON /TERBLO/DHLOSV , TFLOSV, CNLOSV, ETLQSV, DHLPDS 4 

COMMON/TERBMD/DHMDSV,TFMDSV,CNMDSV,ETMDSV,DHMDDS 5 

DIMENSION XLO(5),XMD(5),XHI<5) 6 

EQUIVALENCE ( XLO, DHLOSV ) , ( XMD, DHMDS V ) , ( XHI ,DHH I SV) 7 

COMMON /ALL/XS 28 )/DES IGN/Yf 80 >/FRONT/Z ( 80 ) /SI DE/W ( 48) /BACK/ V l 72 > 8 

COMMON /DUMMYS/ DUMMY ( 100) 9 

COMMON/SPOOL 2/T22, P22, H22, S22, T50, P50, H50, S50, WA22, ZI ,PCNI ,CNI,PRI 10 

l.ETAI, WACI,TFFIP,CNIP,ETATIP,DHTCIP,DHTI ,BLIP,PCBLIP,PCNIGU,ZIDS, 11 

2PCNIDS»PRIDS»ETAIDS»WAIDS»PRICF,ETAICF,WAICF»TFIPDS»CNIPDS*ETIPDS» 12 

3TFIPCF,CNIPCF,ETAPCF,DHIPCF,WAICDS,WAI,PCBLI ,BLI ,T22DS,WA21 13 

EQUIVALENCE (ERR, DUMMY! 11) ) 14 

DIMENSION ERR(9) 15 

LOGICAL ERRER, CLEAR 16 

DATA CLEAR/. TRUE./ 17 

COMMON/ERER/ERRER 18 

ERRER=. FALSE. 19 

IF (.NOT. CLEAR) CALL ENGBAL 20 

CLEAR-. FALSE. 21 

DO 1 J =1, 452 22 

X( J)=0. 23 

SET ARBITRARY VALUES FOR INTERMEDIATE SPOOL DESIGN PARAMETERS TO 24 

AVOID ERROR WHEN RUNNING A DUMMYSPOOL ENGINE 25 

PRIDS-1.5 26 

ETAIDS-1.0 27 

PCNIDS-100, 2B 

Z IDS*. 75 29 

IF { III.EQ.O) KKGO-O 30 

CALL CONOUT (1) 31 

DO 2 1=1,5 32 

XLO ( I) =100. 33 

XMO< I) =100. 34 

2 XHI l I) =100. 35 

DO 3 1=7, 10 36 

3 DUMMYt I )=1.0 37 

CALL ENGBAL 38 

STOP 39 

END 40 


SIBFTC ENGBOL DECK 

SUBROJT INE ENGBAL 1 

COMMON / ALL/ 2 

1W0RD , IDES , JDES , KDES .MODE ,INIT , IDUMP ,IAMTP , 3 

2IGASMX, IDBURN, IAFTBN, IDCD , IMCD , IDSHOC, I MSHOC .NOZFLT, 4 

3ITRYS .LOOPER, NOMAP , NUMMAP , MAPEDG, TOLALL , ARR ( 6 ) 5 

COMMON /DESIGN/ 6 

1PCNFGJ,PCNCGU,T4GU ,DUMD1 ,DUMD2 , DELFG , DELFN .DELSFC, 7 
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2ZFDS 

* PCNFDS 

t PRFDS 

* ETAFDS 

, WAFDS 

, PRFCF 

, ETAFCF 

, WAFCF , 

8 

3ZCDS 

, PCNCDS 

, PRCDS 

, ETACDS 

, WACDS 

, PRCCF 

, ETACCF 

, WACCF , 

9 

4T4DS 

* WFBDS 

* DTCODS 

* ETABOS 

* WA3CDS 

* OPCODS 

• DTCOCF 

*ETABCF, 

10 

5TFHPDS 

, CNHPDS 

, ETHPDS 

, TFHPCF 

, CNHPCF 

, ETHPCF 

« DHHPCF 

* T2DS , 

11 

6TFLPDS 

, CNLPDS 

, ETLPDS 

, TFLPCF 

, CNLPC F 

, ETLPCF 

, DHLPCF 

, T2 IDS , 

12 

7T24DS 

, WFDDS 

, DTDUDS 

, ETADDS 

, WA23DS 

, DPDUDS 

, DTDUCF 

, ETADCF , 

13 

8T7DS 

* WF ADS 

, DT AFDS 

* ETAADS 

, WG6CDS 

* DPAFDS 

, DTAFCF 

, ETAACF, 

14 

9 A55 

, A2 5 

,A6 

,A7 

* A8 

*A9 

, A28 

*A29 

15 

SPS55 

, AM55 

,CVDNOZ 

, CVMNOZ 

, A8SAV 

, A9SAV 

, A28SAV 

, A29SAV 

16 

COMMON 

/ FRONT/ 






17 

1T1 

*P1 

*H1 

,S1 

, T2 

fP2 

t H2 

tS2 , 

18 

2T21 

, P21 

, H21 

, S21 

,T3 

,P 3 

,H3 

, S3 t 

19 

3T4 

,P4 

t H4 

tS4 

t T5. 

,P5 

fH5 

,S5 , 

20 

4T55 

, P55 

, H55 

, S55 

, BLF 

, BLC 

, BLDU 

, BLOB , 

21 

5CNF 

, PRF 

* ET AF 

, WAFC 

, WAF 

,WA3 

, WG4 

, FAR4 , 

22 

6CNC 

, PRC 

* ETAC 

* WACC 

, WAC 

,ETAB 

, DPCOM 

, DUMF , 

23 

7CNHP 

, ET ATHP 

, DHTCHP 

, DHT C 

, BLHP 

, WG5 

, FAR5 

, CS , 

24 

8CNLP 

, ET ATLP 

, DHTCLP 

, DHTF 

, BLLP 

* WG55 

* FAR55 

, HPEXT , 

25 

9AM 

, ALTP 

, ET AR 

,ZF 

, PCNF 

,zc 

, PCNC 

,WFB , 

26 

$TFFHP 

• TFFLP 

, PCBLF 

, PCBLC 

* PCBLDU 

, PCBLOB 

, PCBLHP 

,P CBLLP 

27 

COMMON 

/ SIDE/ 






28 

1XP1 

, XW AF 

« XW AC 

*XBLF 

* XBLDU 

* XH3 

* DUMS1 

• 0UMS2 * 

29 

2 XT 2 1 

,XP21 

, XH21 

,XS21 

,T23 

t P23 

, H23 

t S23 

30 

3T24 

, P24 

* H24 

* S24 

, T25 

,P25 

, H25 

,S25 , 

31 

4T28 

, P28 

, H28 

, S28 

, T29 

, P29 

,H29 

,S29 

32 

5WAD 

* WFD 

, WG24 

* FAR24 

, ETAD 

* DPDUC 

•BYPASS 

, DUMS3 • 

33 

6TS28 

, PS28 

, V28 

, AM28 

, TS29 

, PS29 

,V29 

, AM29 

34 

COMMON 

/ BACK/ 






35 

1XT55 

, XP55 

, XH55 

, XS55 

, XT25 

, XP25 

t XH25 

, XS25 , 

36 

2XWF8 

* XWG55 

, XF AR55 

* XWFD 

, XWG24 

, XFAR24 

• XXP1 

• DUMB , 

37 

3T6 

,P6 

t H6 

,S6 

»T7 

,P7 

• H7 

*S7 

38 

4T8 

,P8 

,H8 

,S8 

,T9 

*P9 

»H9 

, S9 , 

39 

5WG6 

, WFA 

, WG7 

, FAR7 

, ETAA 

, DPAFT 

,V 55 

, V25 , 

40 

6PS6 

,V6 

, AM6 

, TS7 

, PS7 

,V7 

• AMT 

, AM25 , 

41 

7TS8 

, PS8 

,V8 

, AM8 

, TS9 

, PS9 

,V9 

, AM9 , 

42 

8VA 

, FRD 

, V JD 

, FGMD 

, VJM 

, FGMM 

, FGPD 

, FGPM , 

43 

9FGM 

, FGP 

, WFT 

, WGT 

, FART 

t FG 

t FN 

, SFC 

44 


COMMON/ DUMMY S/ DUMMY! 100) 45 


COMMDN/SPOOL2/T22*P22*H22,$22,T50,P50,H50 # S50,WA22,ZI,PCNI,CNI*PRI 45 

1»ETAI» WACI,TFFIP,CNIP,ETATIP,DHTCIP,DHTI , BLIP, PCBLIP,PCNI GU»Z IDS, 47 

2PCNIDS,PRlDS,ETAI0$,WAIDS,PRICF,ETAICF,WAICF*TFIPDS*CNIPDS t ETIPDS* 48 

3TFIPCF*CNIPCF,ETAPCF, DHIPCF, WA ICDS, WAI , PCBL I , BLI ,T22DS, WA21 49 

DIMENSION ERR( 9 ) 50 

EQUIVALENCE ( ERR, DUMMY! 1 1) ) , ( DUMSPL, DUMMY! 59 ) ) 51 

EQUIVALENCE ( FXFN2M, DUMMY! 50 ) ) , I FXM2CP* DUMMY! 51 ) ) 52 

LOGICAL ERRER, FXFN2M , FXM2CP, DUMSPL 53 

DIMENSION DELS AV ( 9 ) 54 

COMMON/ERER/ERRER 55 

D I MENS I ONVAR (91, DEL! 9 ) t ERRB! 9) , DEL VAR !9),EMAT!9,9) , VMAT !9),AMAT!9) 55 

DATA ArfORD/6HENGBAL/ 57 

DATA V DELTA* VL IM , VCHNGE* NOMI SX/ 58 

1 0.001*0.100,0.850*4/ 59 

DATA DEL/9*0 •/ 50 

DATA DELS AV/ 9* .001/ 61 

CALL PUTIN 62 

IF (IMIT.EQ.l) GO TO 1 63 

TFFHP= TFHPDS 64 

TFF I P= TF I PDS 65 

IF ( FXM2CP ) TFFI P^TFHPDS 66 

TFFLP=TFLPDS 67 

1 LOOPER=0 68 

NUMMAP=0 69 

NOM I SS =0 7D 
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^ Ol 


2 LOOPED 71 

MI SMAT =0 72 

NOMAP= 0 73 

IG0=2 74 

DO 3 1=1,9 75 

VMAT (I )=0» 76 

AMAT ( I )=0» 77 

DELVARl I )=0. 78 

DO 3 1=1,9 79 

EMAT ( I , L ) =0. 80 

LOOPER=LOOPER+1 81 

CALL COFAN 82 

WORD=AWORD 83 

IF (LOOPER.GT.ITRYS) ERRER=.TRUE. 84 

IF (L30PER.GT,ITRYS> GO TO 26 85 

IF 1N0MAP.GT.0) GO TO 2 86 

NUMMAP=0 87 

5 VARl 1) =ZF*100. 88 

IF (M0DE.NE.3) VAR(2)=PCNF 89 

IF ( MODE, EO* 3) V ARl 2 ) =T 4/10, 90 

VAR (3) =ZC*100. 91 

IF ( MODE. NE. 1 ) VAR ( 4 ) =PCNC 92 

IF ( MODE. EQ. 1 ) VAR(4)=T4/10. 93 

VAR ( 5 ) =TFFHP 94 

VAR ( 6) =TFFLP 95 

VAR( 7) =ZI *100, 96 

VAR( 8) =PCNI 97 

VARl 9) =TFFIP 98 

NMAX=? 99 

IF I.N0T.FXFN2M.AND. ( .NOT.DUMSPL) > SO TO 6 100 

NMAX=7 101 

IF (DJMSPL) NMAX=6 102 

6 IF (.'OT.FXM2CP) GO TO 7 103 

NMAX=7 104 

VAR (4) =PCNI 105 

VAR l 5) =TFFI P 105 

7 CONTINUE 107 

DO 8 I =1, NMAX 108 

8 IF (ABSIERRI ID.GT.TOLALL) GO TO 9 109 

CALL PERF 110 

CALL ERROR 111 

9 IF ( LOOP* GT, 0 ) GO TO 11 112 

MAPEDS=0 113 

MAPSET =0 114 

DO 10 1=1, NMAX 115 

ERRBII )=ERR( I) 116 

10 DEL(I)=VDELTA*VAR( I) 117 

GO TO 14 118 

11 IF (MISMAT.GT.O) GO TO 29 119 

IF IMAPEDG.EO.O) GD TO 12 120 

MAPED3=0 121 

MAPSET = 1 122 

VAR ( LOOP ) =VAR { LOOP )+2.*DEL( LOOP) 123 

GO TD 15 124 

12 IF (MAPSET. EQ.O) VAR { LOOP) =VAR ( LOOP) 4-DEL l LOOP ) 125 

IF (MAPSET. EO.l) VAR ( LOOP) =VAR ( LOOP ) -DEL ( LOOP) 126 

MAPSET =0 127 

DO 13 1=1, NMAX 128 

IF (DEL(LOOP ).NE.O. ) DELSAVl LOOP ) =DEL ( LOOP ) 129 

IF ( DE L'l LOOP ) . EQ.O. ) DEL l LOOP ) =DELSAV( LOOP ) 130 

EMAT (I ,LOOP)=(ERRB(I )-ERR( I) ) /DEL (LOOP) 131 

13 CONTINUE 132 
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14 LOOP=l 30P-H. 133 

IF ( LOOP. GT » NMAX ) GO TO 1? 134 

IF ( LOOP* GT • 9 ) GO TO 1? 135 

VAR I LOOP) = VAR ( LOOP ) -DEL ( LOOP I 136 

15 ZF=VAR ( 1 ) / 100. 137 

IF ( MODE.NE. 3) PCNF=VAR(2i 138 

IF ( MODE® EQ. 3 ) T 4=VAR ( 2 3 *10. 139 

ZC=VA1 (31/100. 140 

IF I MODE. NE» 1 ) PCNC= VAR( 41 141 

IF { MODE. EQ. 1) T4=VAR ( 4 ) *10. 142 

TFFHP= VAR ( 5 ) 143 

TFFLP*VAR( 6) 144 

ZI=VAR ( 7 ) / 100. 145 

PCNI=VAR!8S 146 

TFF I P= VAR 1 9 } 147 

IF (.N0T.FXM2CP) GO TO 16 148 

PCN I =V ARI 4 ) 149 

TFF IP=VAR( 5) 150 

16 CONTINJE 151 

IF (ZI.LT.O. ) ZI=0.05 152 

IF (ZF.LT.O. ) ZF*0.05 153 

IF (ZC.LT.O. ) ZC-0.05 154 

GO TO ( 2*4) f IGO 155 

17 DO 18 1 = 1 * NMAX 156 

18 AM AT ( I ) =-ERRB ( I S 157 

DO 20 1=1 * NMAX 158 

IZERO=D 159 

DO 19 L00P=1 * NMAX 160 

19 IF (EMAT(I,LOOP).EQ.O. ) IZERO-IZERO+1 161 

IF ( IZERO.LT. NMAX) GO TO 20 162 

WRITE (6*32) I 163 

L00PER-ITRYS+100 164 

GO TO 26 165 

20 CONTINUE 166 

DO 22 L00P=1 * NMAX 167 

I ZERO=D 168 

DO 21 I=1»NMAX 169 

21 IF (EMAT(I,LOOP).EQ.O.) IZERO=IZERO+l 170 

IF ( IZERO.LT. NMAX) GO TO 22 171 

WRITE (6*33) LOOP 172 

LOOPER= ITRYS+100 173 

GO TO 26 174 

22 CONTINUE 175 

23 CALL MATRIX ( EMAT* VMAT* AMAT * NMAX) 176 

LB I G=0 177 

VARBI3=0. 178 

DO 24 L=1 * NMAX 179 

ABSVAR=ABS(VMAT(L) ) 180 

IF ( A3SVAR.LE.VLIM*VAR(L )) GO TO 24 181 

IF ( A3SVAR.LE.VARBIG) GO TO 24 182 

LB I G=L 183 

VARRI3=ABSVAR 184 

24 CONTINUE 185 

VRAT 10=1.0 186 

IF (LBIG.GT.O) VRAT I 0=VL IM*VAR(LBIG)/VARBIG 187 

ERRAVE =0. 0 188 

VMT AVE =0. 0 189 

DELAVE=0.0 190 

DO 25 L=1 » NMAX 191 

DELVAR(L)=VRATIO*VMAT(L) 192 

ERRAVE*ERRAVE+ABS(AMAT(L)) /FLOAT (NMAX) 193 

VARIL) =VAR(L)+DELV ARILS 194 

VMTAVE = VMTAVE+ABS(VMAT(L )> /FLOAT ( NMAX ) 195 
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25 DELAVE=DELAVE+ABS(DELVAR(L ) ) /FLOAT ( NMAX ) 196 

IF (MISMAT.GT.O) GO TO 31 197 

IF (N3MISS.EQ.O) MISMAT=1 198 

IF (MISMAT.EQ.O) IGO=l 199 

26 WRITE (8,34) LOOPER 200 

00 27 1=1, NMAX 201 

27 WRITE (8,35) AM AT (I)#(EMAT(I,L),t=l,9), VMAT( I ) ,DELVAR(I),VAR(I) 202 

WRITE (8,36) ERRAVE, VMTAVE»DELAVE 203 

28 IF (L30PER.LT. ITRYS) GO T3 15 204 

CALL ERROR 205 

RETURN 206 

29 VMT AVX =VMT AVE 207 

DO 30 1=1, NMAX 208 

30 AMAT ( I ) =-ERR ( I ) 209 

GO TO 23 210 

31 WRITE (8,37) AMAT, ERRAVE, DEL VAR, DELAVE, VMAT,VMTAVE, VAR 211 

MISMAT=MISMAT+1 212 

IF (VMTAVE.LT.VCHNGE*VMTAVX) GO TO 28 213 

WRITE (8,38) 214 

IF (MISMAT.LT.NOMISX) N0MISS=1 215 

MISMAr=0 216 

L00P=3 217 

I G0=2 218 

GO TO 5 219 

C 220 

C 221 

32 FORMAT ( 4H0R0W ,12, 16H IS ZERO IN EMAT) 222 

33 FORMAT (7H0CDLUMN, 12, 16H IS ZERO IN EMAT) 223 

34 FORMAT ( 8HB ERRB, 28X23 HE RROR MATRIX AFTER LOOP , 1 4, 29X4HVMAT , 5X5H 224 

1DELVAR,7X14HVARIABLE$$$$$$) 225 

35 FORMAT ( 1H0, F8. 4, 10F9 .3, 2F1 1 . 4, 6H$$$$$$ ) 226 

36 FORMAT ( 1H0, F8. 4, 32X14HAVERAGE VALUES, 31X, 2F1 1 . 4, 6H$$$$$$ ) 227 

37 FORMAT (12H0 AMAT, 10F1 1 .6, 6H$$$$$$ ,/ , 12H DELVAR, 10F11 . 6 228 

1,6H$$$$$$,/,12H VMAT , 10F11.6»6H$$$$S$»/,12H VAR.9F1 229 

21.6,6*)$$$$$$ ) 230 

38 FORMAT ( 1H0, 50X22HCHANGE TOO SMALL$$$$$$) 231 

END 232 


$IBFTC GUESSS DECK 

FUNCTION GUESS(M,T,TD,P,PD,W,WD,D,DD,VD) 1 
IF (M.EQ.O) GUESS=VD* ( (T/TD)**1.60)*( ( DD/D ) **Q. 50 ) 2 
IF (M.EQ.l) GUESS=VD*((P/PD)**1.80)*((DD/D)**0.33) 3 
IF (M.EQ.2) GUESS=VD*( ( W/WD > **0.33 )* ( ( DD/O ) ** 1 . 00 ) 4 
IF (M.EQ.3) GUESS=VD* ( (W/WD)**0.00)*( (P/PD)**0.50) 5 
IF (M.E0.4) GUESS=VD*( ( W/WD > **0. 00 ) » ( ( P/PD ) *»0. 50 ) 6 
IF (M.EQ.5) GUESS=VD*((T/T0)**1.1)*( ( DD/D) »*. 7 ) 7 
IF (M.E0.6) GUESS=VD*( (P/PD) **1.00)* ( ( D/DD ) **0. 25 ) 8 
IF (M.EQ.7) GUESS=VD*( ( P/PD ) **0. 62 ) * ( ( D/DD ) **0. 31 ) 9 
IF (M.EQ.8) GUESS=VD*( (T/TD)**1.2)*DD/D 10 
IF (M.EQ.9) GUESS=VD*P/PD*( (D/DD)**1.5) 11 
RETURN 12 
END 13 
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SIBFTC MATRIX DECK 

SUBROUTINE MATRIX (E,V,A,N) 1 

DI MENS IOM E(9,9),V{9)*A(9),PIV(10)»T(9,10) 2 

NN=N+1 3 

NM=N-1 * 

DO I 1=1, N 5 

T(I,NM!=Ain 6 

DO 1 J = 1 , N 7 

1 T(I,J)=E(I,J) 8 

DO 7 1=1, N 9 

TEMP=0. 10 

DO 2 J = l , N 11 

IF (TEMP.GT.ABSm J, I ))) GO TO 2 12 

TEMP=ABS I T ( J , I ) ) 13 

IPIV=J 1^ 

2 CONTINUE I 5 

IP1=I*1 l 6 

DO 3 J=IP1»NN l 7 

3 PI V ( J ) =T( IPIV,J)/T(IPIV,I) IB 

I FROM® N I 9 

ITO=N 20 

A IF (IFROM.EQ.IPIV) GO TO 6 21 

RM=-T( I FROM , I ) 22 

DO 5 J=IP1»NN 23 

5 TtITO, J)=T(IFROM,J)+RM*PIVIJ) 2A 

ITO= I T 0-1 25 

6 IFROM=IFROM-l 26 

IF (IFROM.GE.I) GO TO A 27 

DO 7 J = IP1»NN 28 

7 T ( I , J) =PI V ( J ) 29 

DO 8 1=1, NM 30 

J=NN-I 31 

K=N-I 32 

DO 8 l = J,N 33 

8 T(K»NN)=T(K»NN)-T(K,L)*TIL»NN) 3A 

DO 9 1=1, N 35 

9 V(I)=T(I,NN) 36 

RETURN 37 

END 38 


SIBFTC PUTIN DECK 

SUBROUTINE PUTIN 1 

COMMON / ALL/ 2 

1 WORD , IDES , JDES ,KDES .MODE ,INIT ,I0UMP ,IAMTP , 3 

2IGASMX, I D BURN, I AFTBN » IDCD , IMCD , I DSHOC, I MSHOC , NOZFLT, A 

3ITRYS , LOOPER, NOMAP , NUMMAP, MAPEDG, TOLALL , ARR ( 6 ) 5 

COMMON /DESIGN/ 6 

1PCNFGJ » PCNCGU»TAGU ,DUMD1 ,DUMD2 , DELFG ,0ELFN , DELSFC « 7 

2ZFDS , PCNFDS , PRFDS , ETAFDS, WAFDS ,PRFCF , ETAFCF , WAFCF , 8 

3ZCDS , PCNCDS, PRCDS , ETACDS , WACDS ,PRCCF , ETACCF , WACCF , 9 

ATADS , WFBDS , DTCODS , ETABDS , HA3CDS, DPCODS, DTCOCF , ETABCF , 10 

5TFHPDS, CNHPDS, ETHPDS»TFHPCF,CNHPCF,ETHPCF,0HHPCF,T2DS , 11 

6TFLPDS,CNLPDS,ETLPDS,TFLPCF, CNLPCF, ETLPCF, DHLPCF,T21DS , 12 

7T2ADS » WFDDS , DTDUDS , ETADDS, WA23DS, DPDUDS , DTDUCF , E TADCF , 13 

8T7DS , WF ADS , DTAFDS , ETAADS, WG6CDS, OPAFDS, DTAFCF , ET AACF , 1A 

9A55 , A25 ,A6 ,A7 , A8 ,A9 , A28 ,A29 , 15 

SPS55 , AM55 , CVDNOZ , CVMNOZ, ASSAY ,A9SAV , A28SAV , A29SAV 16 

COMMON / FRONT/ I 7 

1T1 ,P1 , HI ,S1 ,T2 ,P2 ,H2 ,S2 , 18 
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2T21 

• P21 

9H21 

9 S21 

? T3 

9P3 

»H3 

> S3 9 

19 

3T4 

*P4 

9 H4 

9 S4 

9 T 5 

9P5 

9 H5 

9 S5 

20 

4T55 

» P55 

,H55 

9 S55 

9 BLF 

9 BLC 

9 8LDU 

, BLOB 9 

21 

5CNF 

9 PRF 

f ETAF 

, WAFC 

9 W AF 

9 WA3 

9WG4 

•FAR^ • 

22 

6CNC 

9 PRC 

t ETAC 

9 WACC 

9 WAC 

9 ETAB 

9 DPCQM 

, DUMF , 

23 

7CNHP 

9 ET ATHP 

* DHTCHP 

9 DHTC 

9 BLHP 

9WG5 

9 F AR5 

9 CS 

2* 

8CNLP 

fETATLP 

9 DHTCLP 

9 DHTF 

9 BLLP 

9 WG55 

9 FAR55 

y HPEXT , 

25 

9AM 

9 ALTP 

, ETAR 

tZF 

, PCNF 

9 ZC 

• PCNC 

• WFB • 

26 

STFFHP 

9 TFFLP 

9 PCBLF 

t PCBLC 

9 PCBLDU 

9 PCBLOB 

9 PCBLHP 

9 PCBLLP 

27 

COMMON! 

/ SIDE/ 






28 

1XP1 

9 XWAF 

9 XW AC 

9 XBLF 

9 XBLDU 

9 XH3 

9 DUMS1 

• DUMS2 , 

29 

2XT21 

9 XP21 

9 XH21 

tXS21 

9 T23 

* P23 

• H23 

• S23 • 

33 

3T24 

t P24 

9 H24 

9 S24 

9 T25 

9 P25 

, H25 

9 S25 

31 

4T28 

9 P2 8 

9 H28 

9 S28 

9 T29 

• P29 

9 M29 

9 S29 , 

32 

5WAD 

9 WFD 

9 WG24 

9 FAR24 

9 ETAD 

9 DPDUC 

9 BYPASS 

9 DUMS3 » 

33 

6TS28 

9 PS 28 

9 V2 8 

9 AM28 

9 TS29 

9 PS29 

9 V29 

• AM29 

3^ 

COMMON! 

/ BACK/ 






35 

1XT55 

9 XP55 

t XH55 

9XS55 

♦ XT25 

9 XP25 

9 XH25 

9 XS25 , 

36 

2XWF8 

9 XWG55 

9 XFAR55 

9 XWFD 

9 XWG24 

9 XFAR24 

,XXP1 

, DUMB , 

37 

3T6 

»P6 

f H6 

9 S 6 

9T7 

tP7 

9H7 

9 S7 • 

38 

4T8 

fP8 

9 H8 

9 S 8 

9 T9 

9P9 

9 H9 

»S9 

39 

5WG6 

9 WF A 

9 WG7 

9 FAR7 

9 ETAA 

9 DPAFT 

9 V55 

9 V25 9 

40 

6PS6 

,V6 

9 AM6 

9 TS7 

9 PS7 

9 V7 

» AM7 

9 AM25 , 

41 

7TS8 

9 PS8 

9 V 8 

9 AM8 

9 TS9 

9 PS9 

• V9 

• AM9 • 

42 

8VA 

9 FRD 

, V J D 

9 FGMD 

9 VJM 

9 FGMM 

9 FGPD 

• FGPM 9 

43 

9FGM 

9 FGP 

9 WFT 

9 WGT 

, FART 

9 FG 

9 FN 

• SFC 

44 


COMMON/DUMMYS/DUMMYI 100) 

C0MM0N/SP00L2/T22,P22,H22,S22,T50,P50,H50,S50,WA22.ZI,PCNI,CNI,PRI 
l.ETAI, WACI,TFFIP,CNIP,ETATIP, DHTC I P.DHTI , BL I P, PCBLI P , PCNI GU, ZI DS , 
2PCNIDS»PRIDS»ETAIDS»WAIDS,PRICF,ETAICF»WAICF»TFIPDS»CNIPDS»ETIPDS» 
3TFIPCF,CNIPCF,ETAPCF,DHIPCF,WAICDS,WAI , PCBLI ,BLI ,T22DS,WA21 
DIMENSION ERR ( 9 ) 

EQUIVALENCE ( ERR » DUMMY (ID) 

COMMON /LOOPPR/KKGO » PRFNEW» PRCNEW 
DIMENSION XSAVE I 308 ) » XFI LL ( 1 ) 

EQUIVALENCE (XFILL,WORD) 

LOGICAL ERRER 
COMMON/ERER/ERRER 

► IDES =1 FOR CALCULATING DESIGN POINT 

► MODE =0 FOR CONSTANT T4 

► MODE =1 FOR CONSTANT PCNC 

* MODE =2 FOR CONSTANT WFB 

M0DE=3 FOR CONSTANT PCNF 


INIT =1 
IDUMP =1 
IDUMP =2 
IAMTP =0 
IAMTP =1 
IAMTP =2 
IAMTP =3 
IAMTP =4 
IAMTP =5 
I GASMX=-1 
IGASMX=0 
IGASMX=1 
IGASMX=2 
IDBURN=1 
IDBURN=2 
IAFTBN=1 
I AFTBN=2 
IDCD =1 
I MCD =1 
NOZFLT = 1 


WILL NOT INITIALIZE POINT 

WILL DUMP LOOPING WRITE-OUTS IF ERROR OCCURS 
WILL DUMP LOOPING WRITE-DUTS AFTER EVERY POINT 
WILL USE INPUT AM AND MIL SPEC ETAR 
WILL USE INPUT AM AND INPUT ETAR 
WILL USE T 2 AS Tl=Tl+T2 AND STANDARD PI 
WILL USE P2 AND STANDARD T1 
WILL USE T 2 AND P2 
WILL USE RAM2 FOR SPECIAL RECOVERY 
SEPARATE FLOW, INPUT A6 
SEPARATE FLOW, A6=A55 

WILL MIX DUCT AND MAIN STREAMS, A6=A25+A55 

WILL MIX DUCT AND MAIN STREAMS, INPUT A6 

FOR DUCT BURNING, INPUT T24 

FOR DUCT BURNING, INPUT WFD 

FOR AFTERBURNING, INPUT T7 

FOR AFTERBURNING, INPUT WFA 

DUCT NOZZLE WILL BE C-D 


WILL MIX DUCT AND MAIN SI 
FOR DUCT BURNING, INPUT 1 
FOR DUCT BURNING, INPUT ) 
FOR AFTERBURNING, INPUT 1 
FOR AFTERBURNING, INPUT l 
DUCT NOZZLE WILL BE C-D 
MAIN NOZZLE WILL BE C-D 
FOR FLOATING MAIN NOZZLE 
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C *** NOZFLT = 2 FOR FLOATING DUCT NOZZLE 82 

C *** NOZFLT =3 FOR FLOATING MAIN AND DUCT NOZZLES 83 

C *** ITRYS =N NUMBER OF PASSES THRU ENGINE BEFORE QUITTING 84 

DIMENSION ITABLE 1500) 85 

DATA (ITABLE(I), 1=1, 3)/0, 500,0/ 86 

1 CALL ZERO 87 

IF (KXSO.EQ.l) GO TO 5 88 

I DES=D 89 

CALL INPUT (5, 6,1, WORD, ITABLE) 90 

IF l ERRER. AND. I AFTBN • GT. 0) GO TO 1 91 

IF (ERRER. AND. IDBURN.GT.O) GO TO 1 92 

ERRER=. FALSE. 93 

C TABLE IS REFERENCED TO COMMON/ALL/FIRST ENTRY 94 

IF ( IOES.EQ.O) GO TO 7 95 

IF ( K< SO. NE.2 ) GO TO 3 96 

DO 2 1=1,308 97 

2 XFILL(I)=XSAVE(I) 98 

CALL INPUT (5,6,1, WORD, ITABLE) 99 

CONTINUE 100 

SAVE INPUT IN CASE OF LOOP ON PRESSURE RATIOS 101 

DO 4 1=1,308 102 

XSAVE( I )=XFILL( I ) 103 

GO TO 7 104 

DO 6 1=1,308 105 

XFILL( I ) = XSAVE( I ) 106 

WRITE (6,8) PRFDS»PRFNEW,PRCDS,PRCNEW 107 

PRCDS= PRCNEW 108 

PRFDS* PRFNEW 109 

CONTINUE 110 

KKG0=2 111 

IF ( IAFTBN.GT.O. OR. IDBURN.GT.O) INIT=1 112 

IF ( MODE. EQ. 0 ) WRITE (8,9) IDES, AM, ALTP , T4, T24 , T7 113 

IF ( MODE. EQ. 1 ) WRITE (8,10) IDES , AM, ALTP, PCNC , T24, T7 114 

IF ( MODE. EQ. 2 ) WRITE (8,11) IDES , AM, ALTP , WFB , T24 , T7 115 

DUMMY ROUTINE TO RESTORE WORKING PART OF PROGRAM TO CORE 116 

CALL OVLAY 117 

CALL COINLT 118 

RETURN 119 

120 
121 

FORMAT ( 1 8H0CHANGE PRFDS FRDM,F9.3,4H T0,F9.3,16H AND PRCDS FROM 122 

1,F10.3,4H TO.F10.3) 123 

9 FORMAT ( 1H0,7H IDES=, I3,10X7H AM=, F7. 3 , 6X7H ALTP=,F7. 0 ,6X7H 124 

1 T4=, F8.2,5X7H T24=, F8. 2, 5X7H T7=,F8.2,6H$$$$S$) 125 

10 FORMAT ( 1H0, 7H IDES=, I3.10X7H AM=, F7. 3, 6X7H ALTP=,F7.0,6X7H 126 

1PCNC=,F8.3,5X7H T24=,F8.2, 5X7H T7=, F8. 2 ,6H$$$$$$ ) 127 

11 FORMAT ( 1H0, 7H IDES=, I3.10X7H AM=,F7.3,6X7H ALTP=,F7.0,6X7H 128 

1 WFB=, F8.4.5X7H T24=,F8. 2, 5X7H T7=,F8.2,6H$$t$SS) 129 

END 130 


$ I BFTC ZERO DECK 

SUBROUTINE ZERO 1 

COMMON / ALL/ 2 

1W0RD , IDES , JDES , KDE S , MODE »INIT ,IDUMP ,IAMTP , 3 

2IGASMK, ID BURN, I AFTBN , IDCD , IMCD , IDSHOC, IMSHOC , NOZFLT, 4 

3ITRYS ,LOOPER, NOMAP , NUMMAP, MAPEDG, TOLALL , ARR ( 6) 5 

COMMON /DES I GN/QXQ( 80 ) 6 

COMMON / FRONT/ 7 
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1 

2 

3 


1T1 ,P1 

*H 1 

*S1 

f T2 

9 P 2 

t H 2 

? S2 


8 

2T21 ? P2 1 

t H 21 

*S21 

9 T3 

» P3 

9 H3 

9S3 


9 

3T4 *P4 

9 H4 

9 S4 

9 T5 

9 P5 

t H5 

9 S5 


ID 

4T55 t P55 

» H55 

t S55 

S 8 LF 

9 blc 

® BLDU 

9 BLOB 


11 

5CNF f PRF 

9 ETAF 

9 WAFC 

» WAF 

t WA3 

t WG4 

? FAR4 


12 

6 CNC * PRC 

9 ETAC 

9 WACC 

9 WAC 

, ETAB 

9 DP C OM 

9 DUMF 


13 

7CNHP 9 ET ATHP 

9 DHTCHP 

« DHTC 

9 BLHP 

* a G5 

9FAR5 

tCS 


14 

8 CNLP f ETATLP 

9 DHTCLP 

9 DHTF 

9 BLLP 

9 WG55 

*FAR55 

9 HPEXT 


15 

9AM 9 ALTP 

t ETAR 

t ZF 

9 PCNF 

tZC 

9 PCNC 

9 WFB 


16 

$TFFHP 9 TFFLP 

t PCBLF 

f PCBLC 

9 PCBLDU 

» PCBLOB 

9 PCBLHP 

» PCBLLP 

17 

COMMON / SIDE/ 







18 

1XP1 , XWAF 

9 XWAC 

9 XBLF 

9 XBLDU 

9 XH3 

9 DUMS1 

9 DUMS2 


19 

2XT21 f X P 2 1 

tX H21 

*XS21 

9123 

9 P23 

9 H23 

9 S23 


2D 

3T24 f P 24 

9 H24 

t S24 

t T25 

9 P25 

9 H25 

9 S25 


21 

4T28 9 P28 

t H28 

9 S28 

? T29 

9 P29 

9 H2 9 

9 S29 


22 

5WAD 9 WFD 

*WG24 

9 FAR 24 

9 ETAD 

» 3PDUC 

9 BYPASS 

9 DUMS3 


23 

6TS28 9 PS28 

? V28 

9 AM 2 8 

9 TS29 

9 PS29 

9 V29 

, AM29 


24 

COMMON! / BACK/ 







25 

1XT55 9 XP55 

f XH55 

t XS55 

9 XT25 

9XP25 

9 XH25 

9 XS25 


25 

2XWFB « XWG55 

t XF AR53 

9 XWFD 

9 XWG24 

9 XF AR24 

9 XXPI 

9 DUMB 


27 

3T6 » P6 

9 H6 

,S6 

,T7 

9 P7 

9 H7 

f S7 


28 

4T8 ? P8 

, H8 

9 S 8 

9 T9 

,P9 

t H9 

9 S9 


29 

5WG6 * WFA 

9 WG7 

9 F AR7 

9 ETAA 

9 DP AFT 

t Y55 

9 V25 


30 

6 PS6 *V6 

» AM6 

» TS7 

9PS7 

9 V7 

9 AM7 

t AM25 


31 

7TS8 f PS8 

»V8 

9 AM 8 

9 TS9 

9 PS9 

tV9 

9 AM9 


32 

8 VA t FRD 

? VJD 

* FGMD 

t VJM 

9 FGMM 

9 FGPD 

» FGPM 


33 

9FGM t FGP 

9 WFT 

9 WGT 

9 FART 

9 FG 

t fn 

t SFC 


34 

COMMON /DUMMYS/ DUMMY ( 100) 






35 

COMMON/ SPOOL 2/T22,P2 2, H22, 

S22 9 T50, 

P50,H5G 

9 S50 9 WA22 9 ZI 9 P 

CNI ,CNI 9 PRI 

36 

l.ETAI, WACI,TFFIP,CNIP,ETATIP,DHTCIP,DHn, 

3 LIP 9 PCBLIP 9 PCNIGJ 9 ZIDS 9 

37 

2PCNI D5 9 PRIDS» 

ETA I DS# 

WAIDS, 

PRICF,ETAICF9WAICF,TFIPDS9CNIPDS,ETIPDS9 

38 

3TFI PCF t CN I PCF 

9 ET APCF 

»DHIPCF* MAI CDS 

9 WAI 9 PCBLI 9 BLI 

9 T22DS 

9 WA21 

39 

DIMENSION Zl(63)9Z2(48) f Z3(72) 





4D 

EQUIVALENCE (Zl.Tl), 

{ Z2* XP1 ) 9 (Z3»XT55) 




41 

I DES=3 








42 

JDES=0 








43 

I N I T=D 








44 

I D3URN = 0 








45 

I AFTBN=0 








45 

idsho:=3 








47 

IMSH0:=3 








48 

T2Q=T2 








49 

P2Q=P2 








50 

T4Q=T4 








51 

DO I 1=1963 








52 

Z1U> = 0« 








53 

DO 2 1=1948 








54 

Z2 ( I ) = 0 • 








55 

DO 3 I =1 9 72 








56 

Z3 ( I ) = 0 6 








57 

T2=T23 








58 

P2=P23 








59 

T4=T43 








60 

CALL SYG (1) 








61 

RETURN 








62 

END 








63 
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tIBFTC COINLT DECK 

SUBRDJT I NE COINLT 1 

COMMON / ALL/ 2 

1WORD , IDES t JDES « KDES * MODE ,INIT ,IDUMP ,IAMTP , 3 

2IGASM<» IDBURN, I AFT BN * IDCD , IMCD , IDSHOC, IMSHOC.NOZFLT, 4 

3ITRYS .LOOPER, NOMAP , NUMMAP , MAPEDG, TOLALL , ARR ( 6) 5 

COMMON /DESIGN/ 6 

1PCNFGJ, PCNCGU, T 4GU ,DUMD1 ,DUMD2 , DELFG » DE LF N , DELSFC » 7 

2ZFDS t PCNFDSt PRFDS , ETAFDS, WAFDS ,PRFCF , ETAFCF, WAFCF , 8 

3ZCDS , PCNCDS, PRCDS , ETACDS , WACDS ,PRCCF , ETACCF , WACCF , 9 

4T4DS , WFBDS , DTCODS , ETA8DS . WA3CDS, DPCODS, DTCOCF , ETABCF , 10 

5TFHPDS,CNHPOS,ETHPDS,TFHPCF,CNHPCF,ETHPCF,DHHPCF,T2DS , 11 

6TFLPDS,CNLPDS,ETLPDS,TFLPCF,CNLPCF,ETLPCF,DHLPCF,T21DS , 12 

7T24DS * WFDDS , DTDUDS , ETADDS, WA23DS, DPDUDS, DTDUCF , E TADCF , 13 

8T7DS « WF ADS , DT AFDS , ETAADS, WG6CDS , DP AFDS, DTAFCF , ETAACF , 14 

9A55 ,A25 ,A6 ,A7 ,A8 »A9 ,A28 »A29 , 15 

$PS55 » AM55 » CVDNOZ *CVMN0Z»A8SAV ,A9SAV * A28SAV » A29SAV 15 

COMMON / FRONT/ 17 

1T1 ,P1 » HI ,S1 ,T2 ,P2 ,H2 ,S2 , 18 

2T21 ♦ P21 • H2 1 * S21 * T3 »P3 ,H3 ,S3 , 19 

3T4 t P4 t H4 t S4 , T5 ,P 5 ,H5 ,S5 , 20 

4T55 » P55 » H55 ,S55 » BLF > BLC > BLDU f BLOB , 21 

5CNF * PRF » ETAF ,WAFC ,WAF , WA3 ,WG4 » F AR4 , 22 

6CNC • PRC » ET AC ,WACC ,WAC » ETAB ,DPCOM » D1JMF , 23 

7CNHP » ET ATHP» DHTCHP , DHTC • BLHP ,WG5 » FAR5 ,CS , 24 

8CNLP »ETATLP»DHTCLP»DHTF , BLLP t WG55 ,FAR55 ,HPEXT , 25 

9AM ,ALTP t ET AR ,ZF ,PCNF ,ZC ,PCNC ,WFB , 25 

iTFFHP • TFFLP ,PCBLF .PCBLC , PCBLDU , PCBLOB , PCBLHP, PCBLLP 27 

COMMON /S I DE/ZYXI 48)/BACK/YZX(72) 28 

COMMON/DUMMYS/DUMMYI 100) 29 

C0MM0N/SP00L2/TW0SPL ( 44) 30 

EQUIVALENCE ( ERR, DUMMY ( 1 1) ) 31 

DIMENSION ERRI9) 32 

DATA AH0RD/6HC0INLT/ 33 

WDRD= AWORD 34 

AJ=773 . 26 35 

G=32. 174049 36 

ALT=ALTP*2.0855531E*07/( 2. 08 55 531 E +07- AL TP ) 37 

CALL ATMOS ( ALT , Tl, XX 1 , XX2 , XX3, P 1 , CS , XX4, 1 1 ER ) 38 

IF IIAMTP.EQ.2) T1=T1+T2 39 

IF (IAMTP.EQ.5) CALL RAM2 ( AM, ETAR ) 40 

IF ( IAMTP.NE. l.AND.I AMTP.NE. 5} CALL RAM (AM, ETAR) 41 

FAR=0.0 42 

CALL 9 ROCOM ( FAR , Tl, CS , XX2, XX3, R1 , PH 1 1 , HI ) 43 

S1=PHI 1-R1*AL0G(P1) 44 

H2=H1M AM*CS)**2/(2.«AJ*G) 45 

P2T=1. 46 

DO 1 1=1,10 47 

CALL THERMO (P2T,H2,T2T, S2T , AW, 0,0. 0,1) 48 

IF (ABS(S2T-S1).LE.0.0001*S1) GO TO 2 49 

1 P2T=P1*EXP< (AW/ 1,986375) *( ( S2T-S1 )+( 1. 986375/ AW ) *ALOG ( P2 T/P 1 ) ) ) 50 

CALL ERROR 51 

RETURN 52 

2 IF ( IAMTP.EQ.3.0R.IAMTP.EQ.4) ETAR=P2/P2T 53 

P2 = ET A R*P2T 54 

IF ( IAMTP.NE. 4) CALL THERMO ( P2, H2 , T2 , S2 , XX5 , 0 , 0. 0 , 1 ) 55 

IF (IAMTP.EQ.4) CALL THERMO (P2»H2»T2,S2»XX5»0, 0.0,0) 56 

IF ( INIT.EQ. 1) GO TO 5 57 

IF ( IDES.EO.l) GO TO 3 58 

IF ( MODE. EQ. 3) GO TO 4 59 

PCNF=SUESS(MODE,T4,T4DS,PCNC,PCNCDS,WFB,WFBDS,T2,T2DS,p:NFOS) 60 

PCNFGU=PCNF 61 

GO TO 4 62 
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3 

PCNF = P CNFDS 

63 


PCNFGJ = PCNF 

64 


T2DS=T 2 

65 

4 

ZF=ZFDS 

66 

5 

RETURN 

67 


END 

68 


SIBFTC ATMOS DECK 

SUBROUTINE ATMOS ( ZFT, TM, S I GMA * RHO, THETA, DEL TA ,C A , AMU, K ) 

THIS IS A SUBROUTINE TO COMPUTE CERTAIN ELEMENTS OF THE 1962 
U.S. STANDARD ATMOSPHERE UP TO 90 KILOMETERS. 

CALLIN'* SEQUENCE... 

CALL ATMOS (ZFT, TM, SIGMA, RHO, THETA* DELTA, CA, AMU, K) 

ZFT = GEOMETRIC ALTITUDE (FEET) 

TM - MOLECULAR SCALE TEMPERATURE (DEGREES RANKINE) 

SIGMA * RATIO OF DENSITY TO THAT AT SEA LEVEL 

RHO = DENSITY ( LB-SEC**2-FT**( -4) OR SLUGS-FT**3) 

THETA = RATIO OF TEMPERATURE TO THAT AT SEA LEVEL 

DELTA = RATIO OF PRESSURE TO THAT AT SEA LEVEL 

CA * SPEED OF SOUND (FT/SEC) 

AMU = VISCOSITY COEFFICIENT ( LB-SEC/FT**2 ) 

K = 1 NORMAL 

= 2 ALTITUDE LESS THAN -5000 METERS OR GREATER THAN 90 KM 
= 3 FLOATING POINT OVERFLOW 

ALL DATA AND FUNDAMENTAL CONSTANTS ARE IN THE METRIC SYSTEM AS 
THESE QUANTITIES ARE DEFINED AS EXACT IN THIS SYSTEM. 


THE RADIJS OF THE EARTH ( REFT59) IS THE VALUE ASSOCIATED WITH THE 
1959 ARDC ATMOSPHERE SO THAT PROGRAMS CURRENTLY USING THE LIBRARY 
ROUTINE WILL NOT REQUIRE ALTERATION TO USE THIS ROUTINE. 

DIMENSION HB ( 10 ) , TMB ( 10) ,DEL TAB t 10 > , ALM C 10) 


OATAHBU), 

TMB(I), 

DELTAB( I ), 

ALM(I), 1=1,10)/ 

27 

1 

-5.D, 

320.65, 

1.75363E 00, 

-6.5, 

28 

2 

0.0, 

288.15, 

l.OOOOOE 00, 

-6.5, 

29 

3 

11.0, 

216.65, 

2.23361E-01, 

0.0, 

30 

4 

20.0, 

216.65, 

5.40328E-02, 

1.0, 

31 

5 

32.0, 

228.65, 

8.56663E-03, 

2.8, 

32 

6 

47.0, 

270.65, 

1.09455E-03, 

0.0, 

33 

7 

52.0, 

270.65, 

5.82289E-04, 

-2.0, 

34 

8 

61.0, 

252.65, 

1.79718E-04, 

-4.0, 

35 

9 

79.0, 

180.65, 

1.0241 E-05, 

0.0, 

36 

$ 

88.743, 

180.65, 

1.6223 E-06, 

0.0/ 

37 

DATA REFT59/2.0855531E 

07/, GZ 

/9. 80665/, 

38 

1 

AMZ 

/28. 9644 

/, RSTAR 

/8. 31432/, 

39 

2 

FTTOKM/3.048E-04 

/» s 

/110. 4 /, 

40 

3 

AMUZ 

/I • 2024E-05 

/, CAZ 

/ 1 11 6. 45/ , 

41 

4 

RHOZ 

/O. 076474 

/, GZENG 

/32.1741/ 

42 


CONVERT GEOMETRIC ALTITUDE TO GEOPOTENTIAL ALTITUDE 
HFT=(REFT59/( REFT59+ZFT ) )*ZFT 
CONVERT HFT AND ZFT TO KILOMETERS 
Z=FTT3 <M*ZFT 
H=FTT3KM*HFT 
K=1 

TMZ=TM8( 2 ) 

IF (H.LT.-5.0.0R.Z.GT.90.0) GO TO 7 
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DO 1 M=i,10 51 

IF (H-HB(M) ) 2, 3,1 52 

1 CONTINUE 53 

GO TO 7 54 

2 M=M-1 55 

3 DELH=H-HB(M) 56 

IF ( AL M( M ) • EQ. 0 • 0 ) GO TO 4 5? 

TMK=TM3(M)+ALM(M)*DELH 58 

C GRADIENT IS NON ZERO, PAGE 10, EQUATION K2*10-(3> 59 

DELTA=DELTAB(M)*( (TMB(M)/TMK)**(GZ*AMZ/(RSTAR*ALM(M))) > 60 

GO TO 5 61 

TMK=TMB( M ) 62 

GRADIENT IS ZERO, PAGE 10, EQUATION I.2.10M4) 63 

DELT A= DEL TAB ( M ) *EXP( -GZ*AMZ*DELH/ ( RSTAR*TMB ( M) ) ) 6 4 

THET A=TMK/TMZ 65 

SIGMA 2 DELT A/THET A 66 

ALPHA 2 SQRT { THET A* *3) * ( (TMZ+S ) / ( TMK+S ) ) 67 

CONVERSION TO ENGLISH UNITS 68 

TM 2 1.3*TMK 69 

RHG=RH3Z*SI GMA/GZENG 70 

CA=CAZ *SQRT t THET A ) 71 

AMU-AM JZ* ALPHA/GZEN3 72 

CALL OVERFL (J) 73 

GO TO (6,8) , J 74 

K=K+2 75 

GO TO 3 76 

K=2 77 

RETURN 78 

END 79 


$1 BFTC RAMS DECK 

SUBROUTINE RAM ( AM, ET AR ) 1 

IF ( AM* GT • 1 . ) GO TO 2 2 

ETAR=1 • 3 

1 RETURN 4 

2 IF (AM.GT.5*) GO TO 3 5 

ETAR=1 * -0. 075* ( (AM-1* )** 1*35) 6 

GO TO 1 7 

3 ETAR=300./{ (AM**4)+935* I B 

GO TO 1 9 

END 10 


$ I BFTC RAMTrfO DECK 

SUBROUTINE RAM2 (AM, ETAR ) I 

DIMENSION PRINLTC 15) , FMN ( 1 5) 2 

DIMENSION Y( 3 ) , X ( 3) 3 

DATA FMN/0*,*1,.2,*3, *4, .5 , * 8, 1 * 1, i * 2, U 4, 1* 6, 1* 8, 2. 2 ,2. 4, 2. 7/ 4 

DATA PRINLT/*9,®932, * 95, *961 * ® 968, * 97* ® 9701 * ® 97, • 968 1, * 9 58 , . 94, 5 

1*9181, .858, *8201, *75/ 6 

M=0 7 

DO 1 J=l, 15 8 

1 IF (AM.GE.FMNIJn M*J-1 9 

IF ( Me EQ» 0 ) M*1 10 
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IF ( M® SE * 14 ) M-l 3 

11 

DO 2 1=1,3 

12 

MM=M-1 + I 

13 

X ( I ) =F MN ( MM ) 

14 

Y ( I ) =PRINLT ( MM) 

15 

CALL PARABO ( X , Y , AM, ETAR ) 

16 

RETURN 

17 

END 

18 


$ I BFTC COFAN DECK 

SUBROJT INE COFAN 
COMMON / ALL/ 
1WORD v IDES 



DELSFC 

WAFCF 

WACCF 

ETABCF 


1WORD ,IDES , JDES yKDES , MODE ,INIT , I DUMP ylAMTP 
2IGASM< , ID BURN, I AFTBN y IDCD , IMCD * IDSHOC , I MSHGC , NOZFLT 
3ITRYS yLOOPER, NOMAP , NUMMAP , MAPEDG, TOLALL , ARR l 6 > 

COMMON /DESIGN/ 

IPCNFGJy PCNCGU, T4GU * e®. ^r-. rrr 

2ZFDS , PCNFDS » PRFDS 
3ZCDS ,PCNCOS,PRCDS 

4T4DS yWFBDS » DTCODS * ETABDS, WA3CDS * i uuur « c i ad 

5TFHPDS , CNHPDS y ETHPDS , TFHPCF, CNHPCF, ETHPCF t DHHPCF , T2DS 
6TFLPDS , CNLPDSy ETLPDS f TFLPCF,C!\ILPCFy ETLPCF, DHLPCF , T21D 
7T24DS yWFDDS , DTDUDS , ETADDS, WA23DS, DPDUDS, DTDUCF , ETADCF 
8T7DS y WF ADS , DTAFDS , ETAADSy WG6CDS, DPAFDS, OTAF CF y ETAACF 
9A55 ,A25 , A6 ,A7 ,A8 ,A9 ,A28 yA29 

SPS55 y AM55 y CVDNQZ , CVMNOZ, A8SAV »A9SAV , A28SAV , A29SA V 
COMMON / FRONT/ 

1T1 y PI y Hi 
2T21 
3T4 
4T55 
5CNF 
6CNC 
7CNHP 
8CNLP 
9AM 



cyu i uu'in i uu iy \ < 

LOGICAL FXM2CP 

COMMON / FAN/CNXC15 )yPRX( 15 • 15 ) , WACXI 15 y 15 ) yETAXC 15 y 15) , 
1NCN,NPT(15) 

DIMENSION WLHC2) 

DATA A WOR D, WLH/ 6H COFAN, 6H (LO) ,6H (HI) 

WORD=A WORD 

THETA=SQRT(T2/518®668) 

IF ( IDES* NE® 1 ) GO TO 1 
THETAD-THETA 
WAFDS= WAFC*P2/THETA 


1 

2 

3 

4 

5 

6 
1 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 
3 4 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 


67 



1 CNF=P:»F*TH£TAD/( 100**THETA) 46 

IF ( ZF • LT • 0* ) ZF=0* 47 

IF (Z~.GT*1») ZF=1* 48 

CNFS=CMF 49 

CALL SEARCH ( ZF,CNF, PRF, WAFC,ETAF,C>JX 11) , NCN,PRX ( 1 , 1 ) , WACX{ 1 , 1 ) , ET 50 

lAXClfl ) , NPT( l)«15yl5y IGO) 51 

IF ( CMF-CNF$).GTo0.0005*C!MF> MAPEDG=1 52 

IF ( I30*EQ*1.0R*IG0.EQ*2) WRITE (8,12) CNFS, WLH( I GO) 53 

WAF=W AFC *P2/ THETA 54 

IF ( IDES* NE* 1) GO TO 2 55 

PRFCF= ( PRFDS-1 • )/(PRF-l* ) 56 

ET AFCF^ET AFDS/ETAF 57 

WAFCF* WAFDS/ WAF 58 

WRITE (6,13) PRFCF, ET AFCF, WAFCF,T2DS 59 

2 PRF=PRFCF*(PRF-i* ) + l* 60 

ETAF = E TAFCF*ETAF 61 

WAF=WAFCF*WAF 62 

WAFC-WAFC*WAFCF 63 

PCNF=100.*THETA*CNF/THETAD 64 

DUMD1 = PCNF 65 

CALL THCOMP ( PRF , ETAF , T2 ,H2, S2, P2 , T22, H22, S22 , P22 ) 66 

IF (PGBLF.GT.O* ) BLF=PCBLF*WAF 67 

IF (JDES.EQ*!) GO TO 9 68 

JOE S=1 69 

IF ( IMIT.EQ.l) GO TO 8 70 

IF ( IDES* EO* 1 ) GO TO 6 71 

IF (M00E.NE.2) GO TO 3 72 

T4=GUESS( 3,Y1,Y2,PCMF,PCNFDS,WFB, WFBDS, Y7,Y8,T4DS) 73 

PCN I =3 JESS ( 8 , T4, T40S , Y3, Y4, Y5, Y6, T22, T22DS , PCNI DS ) 74 

PCNC*3JESS(4,Y1, Y2, PCNI, PCN IDS, WFB, WFBDS, Y7,Y8, PCNCDS) 75 

GO TO 7 76 

3 IF (MOOE.EO.l) GO TO 5 77 

IF ( MODE* EQ* 0 ) GO TO 4 78 

T4=G»JESS( 7,Y1,Y2.PCMF,PCNFDS,Y5,Y6,T2,T2DS,T4DS) 7 9 

4 CONTINUE BO 

PCNC=GJESS<5,T4,T4DS,Y3, Y4,Y5,Y6, T22, T22DS , PCNCDS ) Bi 

IF (FXM2CP) PCNC=PCNCDS**99 82 

PCNCG1 =PCNC 83 

PCNCG2 =PCNCDS 84 

PCNI=GJESS(9*Yl f Y2,PCNCGl*PCNCG2,Y5 f Y6 > T22,T22DS,PCNIDS) 85 

GO TO 7 86 

5 T4=GUE$S< 6* Yl, Y2,PCMC, PCNCDS , Y5 , Y6 , T22, T22DS , T4DS ) 87 

PCNI =3UESS(8,T4,T4D$,Y3, Y4, Y5, Y6, T22, T22DS, PCNI DS ) 83 

GO TO 7 89 

6 PCNC=PCNCDS 90 

PCNI =PCNI DS 91 

T4=T40S 92 

WFB=W=BDS 93 

T21DS=T21 94 

7 ZC=ZCDS 95 

ZI=ZIOS 96 

PCNIGJ-PCNI 97 

PCNCGJ = PCNC 98 

T4GU = T 4 99 

8 IN I TO 100 

9 IF (M0DE*NE.3) GO TO 10 101 

IF l ABS t CNF-CNFS )*LE*0*001»CNFS) GO TO 11 102 

WRITE (8,14) CNFS.CMF 103 

CALL ERROR 104 

10 PCNF=100.*THETA*CNF/THETAD 105 

11 CALL C3INTC 106 

RETURN) 107 

C 108 
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C 109 

12 FORMAT ( 19H0* * * CNF OFF MAP,F10.4,2XA6, 11H* * *$$$$$$} 110 

13 FORMAT (11H0FAN DESIGN, 13X8H PRFCF*. E15 . 8, 8H ETAFCF=,E15. 8, 8H WA 111 

1 FCF* » E 15 . 8 » 8H T2DS=,E15.8) 112 

14 FORMAT ( IOHOCNF WAS* ,E15.8,11H AND NOW* ,E15.8,24H CHECK PCNF I 113 

INPUT $$$$$$ ) 114 

END 115 


$IBFTC COINTC DECK 

SUBROUTINE COINTC 1 

COMMON / ALL/ 2 

1WORD , I DES , JDES *KDES , MODE ,INIT .IDUMP ,IAMTP , 3 

2IGASMK , ID BURN, I AFT BN , IDCD , IMCD , IDSHOC, IMSHOC .NOZFLT, 4 

3ITRYS .LOOPER, NOMAP , NUMMAP , MAPEDG»T0LALL,ARR(6) 5 

COMMON /DESIGN/ 6 

1PCNFGJ, PCNCGU»T4GU , DUMD1 ,DUMD2 , DELFG , DELFN ,DELSFC, 7 

2ZFDS fPCNFDS, PRFDS , ETAFDS, WAFDS ,PRFCF .ETAFCF.WAFCF , 8 

3ZCDS , PCNCDS, PRCDS , ETACDS , WACDS ,PRCCF , ETACCF , WACCF , 9 

4T4DS , WFBDS , DTCODS , ETABDS , WA3CDS, DPCODS, DTCOCF , ETABCF V 10 

5TFHPDS »CNHPDS» ETHPDS, TFHPCF, CNHPCF, ETHPCF,DHHPCF »T2DS , 11 

6TFLPDS,CNLPDS,ETLPDS,TFLPCF,CNLPCF,ETLPCF,DHLPCF,T21DS , 12 

7T24DS , WFDDS , DTDUDS , ETADDS, WA23DS, DPDUDS, DTDUCF , ETADCF , 13 

8T7DS , WF ADS , DTAFDS , ETAADS, WG6CDS, DPAFDS,DTAFCF , ETAACF , 14 

9A55 » A25 ,A6 ,A7 ,A8 ,A9 ,A28 ,A29 , 15 

$PS55 t AM55 , CVDNDZ , CVMNOZ, A8SAV ,A9SAV , A28SAV, A29SAV 16 

COMMON / FRONT/ 17 

1T1 ,P1 , HI ,S1 ,T2 ,P2 , H2 ,S2 , 18 

2T21 » P21 , H21 t S21 ,T3 ,P3 ,H3 »S3 , 19 

3T4 ,P4 ,H4 ,S4 ,T5 ,P5 ,H5 ,S5 , 20 

4T55 » P55 « H55 ,S55 » BLF ,BLC , BLDU » BLOB , 21 

5CNF , PRF ,ETAF ,WAFC ,WAF ,tfA3 ,WG4 ,FAR4 , 22 

6CNC , PRC , ET AC ,WACC ,WAC , ETAB ,DPCOM ,DUMF , 23 

7CNHP , ET ATHP, DHTCHP , DHTC , BLHP ,WG5 , FAR5 ,CS , 24 

8CNLP , ET ATLP, DHTCLP, DHTF , BLLP ,WG55 ,FAR55 ,HPEXT , 25 

9AM , ALTP , ET AR ,ZF ,PCNF ,ZC ,PCNC ,WFB , 25 

$TFFHP ,TFFLP ,PCBLF ,PCBLC , PCBLDU, PCBLOB, PCBLHP , PCBLLP 27 

COMMON/S I DE/ZYXJ 48 )/BACK/YZX( 72) 28 

COMMON/DUMMYS/DUMMYt 100) 29 

COMMON/ SPOOL 2/ T22 , P2 2 »H22» S22»T50,P50,H50»S50»WA22»ZI»PCNI»CNI»PRI 30 

l,ETAI,rfACI,TFFIP,CNIP,ETATIP,DHTCIP,DHTI,BLIP,PCBLIP,PCNIGU,ZIDS, 31 

2PCNIDS,PRIDS,ETAIDS,WAIDS,P*ICF,ETAICF,WAICF,TFIPDS,CNIPDS,ETIPDS, 32 

3TFIPC=,CNIPCF,ETAPCF,DHIPCF,WAICDS, WAI,PCBLI,BLI ,T22DS,WA21 33 

COMMON/ I NT/CNX(15),PRX(15, 15),WACX(15,15),ETAX(15,15) , 34 

1NCN , NPT (15) 35 

COMMON/DUMINT/CNXX ( 1 5 ) ♦ PRXX t 15, 15 ) , WACXXC 15 » 15) , ETAXX ( 15 , 15 ) , 36 

1NCNX, NPTXi 15 ) 37 

EQUIVALENCE ( FXFN2M, DUMMY! 50 ) ) , ( FXM2CP, DUMMY ( 51 ) ) , 38 

1 ( AFT FAN, DUMMYl 58)),(DUMSPL» DUMMY! 59 ) ) 39 

2 , CPCBLID,DUMMY(61) ) 40 

LOGICAL FXFN2M,FXM2CP » AFTFAN ,DUMSPL 41 

DIMENSION ERR ( 9 ) 42 

EQUIVALENCE I ERR, DUMMYl 11) ) 43 

DIMENSION WLHI2) 44 

DATA AWDRD»WLH/6HC0I NTC, 6H (LO) ,6H (HI ) / 45 

WORD=A WORD 46 

IF (.NOT. AFTFAN) GO TO 1 47 

T22S=T 22 48 

H22S=H22 49 
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1 


S22S=S22 50 

P22S=P22 51 

T22=T2 52 

H22=H2 53 

S22=S2 54 

P22=P2 55 

THETA=SQR TIT 22/518.668) 56 

IF (I0ES.NE.1) GO TO 2 57 

PRI=PUDS 58 

PCBLI=PCBLID 59 

WAC I=d AICDS 63 

THETAO=TH£TA 61 

WAIDS=WACI*P22/THETA 62 

ETAI=ETAI DS 63 

2 IF ( .NOT • FXFN2M) GO TO 3 64 

C FAN AND MIOOLE SPOOL ROTATE AT SAME SPEED 65 

SPDFAN=CNF*SQRT { T2/5 1 8.668 ) 66 

CNI=SPDFAN/THETA 67 

PCNI=100.*CNI«THETA/THETAD 68 

IF (IDES.EQ.l) PCNIDS=PCNI 69 

3 CNI=PCNI*THETAD/I100.*THETA) 73 

ZI=AMAX1(ZI,0.) 71 

ZI=AMIN1(ZI,1.) 72 

cnis=;ni 73 

IF (.NOT. DUMSPL) GO TO 4 Ik 

CALL INDUMY ( CNI , ZI, WAICDS , IDES ) 75 

CALL SEARCH ( Z I , CNI, PRI , WAC I ,ETAI » CNXX, MCNX, PRXX, WACXX ,ETAXX, NPT X, 75 

115,15, IGO) 77 

GO TO 5 78 

4 CONTINUE 79 

CALL SEARCH t ZI , CNI , PRI , WAC I , ETAI , CNX ( 1 ) , NCN, PRX ( 1 , 1 ) , WACX( 1, 1 ) , ET 60 

1 AX (1,1 ) , NPT ( 1), 15,15, IGO) 81 

5 CONTINUE 82 

IF { (CNI-CNIS).GT..0005*CNI) MAPEDG=1 83 

IF (I30.EQ.1.0R. IGO. EQ. 2 ) WRITE (8,12) CNIS,WLH( IGO) 84 

WAI=WACI*P22/THETA 85 

WA22-WAI 86 

IF (I0ES.NE.1) GO TO 7 87 

T22DS=T22 88 

IF ( . NOT. DUMSPL ) PRICF= ( PR I DS-1. ) / ( PRI-1. ) 89 

ETAICF*ETAIOS/ETAI 90 

WAICF=WAIDS/WAI 91 

IF (.NOT. DUMSPL) GO TO 6 92 

PRI CF= 1 . 93 

ETAICr=l. 94 

WAICF=1. 95 

6 CONTINUE 95 

WRITE (6,13) PRICF,ETAICF»WAICF,T220S 97 

7 PRI=PRICF*(PRI-1. ) +1 • 98 

ETAI=ETAICF*ETAI 99 

WAI=WAICF*WAI 100 

WACI=rfACI*WAICF 101 

WA22=WAI 102 

CALL THCOMP (PRI , ET AI ,T22,H22, S22, P22, T21 ,H21 , S21 ,P21 ) 103 

IF (.NOT. DUMSPL) GO TO 8 104 

PRI=1. 105 

ETA I =1 . 106 

T21=T2 2 107 

H21 = H2 2 108 

S21=S22 109 

P21=P22 110 

8 CONTINJE 111 

IF ( 10ES.NE. 1) GO TO 9 112 

bli=p:bli*wai 113 
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WA2 1=4 A22-BL I 114 

W A32=3l I 115 

WAC = W& 21 116 

9 CONTI N J£ HI 

IF { AB$CCNI~CNISKLE®0®001*CNIS) GO TO 10 113 

WRITE 18,14) CNIS, CM I 119 

CALL ERROR 120 

PCNI=100®*THET A*CNI/THET AD 121 

10 IF UN3T«AFTFA HI GO TO II 122 

T22=T22S 123 

H22=H22S 124 

S22-S2.2S 125 

P22= P22S 126 

11 CALL :3C0HP 127 

RETURM 128 

129 

130 

131 

12 FORMAT (19H0* * * CNI OFF MAP, F10* 4, 2X A6, 1 1H* * *$$$&$$,) 132 

13 FORMAT { 20H/M IDOLE SPOOL DESIGN,4X8H PRICF*, E15® 8, 8H ETAICF = f E15* 133 

18, 8H WAI CF= ,E15«8,8H T22DS^, El 5, 8 ) 134 

14 FORMAT UOHOCNI WAS* ,E15«8»11H AND NOW= *E15,8,24H CHECK PCN1 I 135 

INPUT $$$$$$ ) 136 

END 137 


$1 BFTC INTDUM DECK 

SUBROUTINE INDUMY I CN I , Z I 9 WACI , IDES ) 1 

C0MM0M/DUMINT/CNXX(15),PRXXC 15,15), WACXX C 15, 15 ) , ETAXXU5 ,15 ) , 2 

1NCNX, N PTX { 15 ) 3 

DIMENSION W ACAR( 15 ) , XCNXXC 15 ) 4 

DATA XCNXX/*001,®1,*2, ®3,*5,®8,1®, 1® 5, 2 ® 0, 3® 0, 4® 0, 5® 0, 6® ,7* ,9,/ 5 

DATA WACAR/5®,4®5,4.,3®5,3® ,2®5,2®,1*5,1® ,®8,®6,®4,«25,®l,®05/ 6 

IF ( I DES* NE« 1 ) GO TO 1 ? 

WAI DS* WAC I 8 

CNI DS*CNI 9 

ZI=2«/3®5 10 

1 NCNX=1 5 11 

DO 2 1*1,15 12 

NPTX{ I ) *15 13 

CNXXU)=XCNXX{ I)*CNIDS 14 

DO 2 J *1 , 15 15 

PRXXU, J)=FLOAT( J*3)/4® 16 

ET AXXC I , J ) = 1 ® 17 

2 WACXXI J, I ) =WACAR {l)*l ®993*®001*FLQAT( J) )*WAIDS 18 

RETURM 19 

END 20 


$ I BFTC COCOMP DECK 

SUBROUTINE COCOMP i 

COMMON / ALL/ 2 

1 WORD , IDES ? JDES , KDES , MODE , IN I T ,IDUMP ,IAMTP , 3 

2 IGASMK f IDBURN, I AFTBM « IDCD , IMCD * IDSHOC® IMSHOC , NOZFLT , 4 
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3ITRYS 

tLOOPER, NOMAP 

, NUMMAP 

? MAPEDG 

, TOLALL , ARR ( 6) 


5 

COMMON 

/DESIGN/ 





6 

1PCNFGJ 

, PCNCGU, T 4GU 

, DUMD1 

, DUMD2 

t DELFG , DELFN 

.DELSFC. 

7 

2ZFDS 

, PCNFDS, PRFDS 

, ETAFDS 

t WAFDS 

t PRFCF . ETAFCF 

, WAFCF , 

8 

3ZCDS 

t PCNCDS , PRCDS 

tETACDS 

v WACDS 

9 PRCCF ,ETACCF 

9 WACCF , 

9 

4T4DS 

» WFBDS , DTCODS 

, ETABDS 

t WA3CDS 

t DPCODS. DTCOCF 

. ETABCF. 

10 

5TFHPDS 

, CNHPDS, ETHPDS 

, TFHPCF 

, CNHPCF 

t ETHPCF. DHHPCF 

tT2DS , 

11 

6TFLPD5 

, CNL PD S, ETLPDS 

, TFLPCF 

, CNLPCF 

,ETLPCF,DHLPCF 

, T21DS , 

12 

7T24DS 

, WFDDS , DTDUDS 

.ETADDS 

, WA23DS 

, DPDUDS, DTDUCF 

, ETADCF 9 

13 

8T7DS 

, WFADS tDTAFDS 

.ETAADS 

» WG6CDS 

t DPAFDS. OTAFCF 

, ETAACF , 

14 

9A55 

, A25 , A6 

,A7 

t A8 

• A9 9 A28 

t A29 , 

15 

SPS55 

, AM55 , CVDNOZ 

, CVMNOZ 

, A8SAV 

, A9SAV 9 A28SAV 

t A29SAV 

16 

COMMON 

/ FRONT/ 





17 

1T1 

tPl .HI 

,S1 

, T2 

, P2 , H2 

,S2 , 

18 

2T21 

,P21 , H21 

t S21 

, T3 

. P3 ,N3 

• S3 * 

19 

3T4 

,P4 ,H4 

9 S4 

t T5 

, P5 , H5 

,S5 , 

20 

4T55 

, P55 , H55 

t S55 

, BLF 

. BLC , BLDU 

* BLOB , 

21 

5CNF 

tPRF ,ETAF 

. WAFC 

9 WAF 

, WA3 , WG4 

»FAR4 , 

22 

6CNC 

* PRC .ETAC 

t WACC 

, WAC 

tETAB . DPCOM 

»DUMF , 

23 

7CNHP 

.ETATHP.DHTCHP 

, DHT C 

, BLHP 

. WG5 ,FAR5 

»CS , 

24 

8CNLP 

, ET ATLP , DHTCLP 

, DHTF 

9 BLLP 

. WG55 . FAR55 

»HP£XT , 

25 

9AM 

• ALTP , ET AR 

,ZF 

, PCNF 

f ZC 9 PCNC 

» WFB , 

26 

STFFHP 

, TFFLP , PCBLF 

tPCBLC 

. PCBLDU 

t PCBLOB. PCBLHP 

» PCBLLP 

27 


COMMON /SI DE/ZYX ( 48 ) / BACK/YZX ( 72 ) 28 

COMMON/DUMMYS/ DUMMY! 21) f WA 32* DP WGDS» DP WIMG*WA32DSfA38»AM38tV38» 29 

IT38,H33,P38,TS38,P$38tT39 f H39, P39, TS39, V39, AM39,A39, SPRINT, WS37, 30 

2CVDWMS* FGMWNG# FGPWNG, FNW IMG* FNMA IN .F WOVEN. DI MMY { 52 ) 3i 

COMMON/5POOL2/T22,P22,H22, S22, T50, P50.H50, S50, WA22 , ZI , PCNI .CNI.PRI 32 

1,ETAI, WACItTFFIP.CNIPtETATIP.DHTCIP.DHTI.BLIP.PCBLIP.PCNIGU.ZIOS. 33 

2PCNIDSfPRIDS*ETAIDS*WAIDStPRICFfETAICFtWAICF»TFIP[)SfCMIPDSfETIPDS* 34 

3TFI PCF . CNIPCF. ET APCF. DHIPCF. WAICDS. WAI v PCBLI f BLI ,T22DS,WA21 35 

EQUIVALENCE! FXFN2M, DUMMY! 50) ). ( FXM2CP, DUMMY! 51 ) ) 36 

EQUIVALENCE ! PCBLID. DUMMY! 61 ) ) * ! DUMSPLt DUMMY (59) ) 37 

LOGICAL FXFN2M, FXM2CP ,DUMSPL 38 

DIMENSION ERR! 9 ) 39 

EQUIVALENCE (ERR, DUMMY! 11) ) 40 

COMMON / C0MP/CNX(15), PRX! 15*15),WACX(15*15),ETAX!15,15)v 41 

1NCN, NPT ( 15 ) 42 

DIMENSION WLH! 2 ) 43 

DATA A WORD, WLH/6HC0C0MP. 6H (LO) ,6H (HI) / 44 

WORD= A WORD 45 

THETA=SQRT!T21/518.668) 46 

IF ( IDES* NE* 1 ) GO TO 1 47 

THETAO^THETA 48 

WACDS = WAC 49 

WACC S W AC*THETA/P21 50 

IF ( • NOT • FXM2CP ) PCNC=PCNCD$ 51 

1 IF ! • NOT *FXM2CP) GO TO 2 52 

C SPEEDS OF MIDDLE AND INNER SPOOL ARE THE SAME 53 

SPDMIO-CN I*SQRT l T 22/ 518* 668 ) 54 

CNC-SPDMI D/ THETA 55 

PCNC=1 00* *CNC*THETA/THET AD 56 

IF ( IDES* EQ* 1 ) PCNCDS=PCNC 57 

2 CNC^P:Nv>THETAD/(100**TH6TA) 58 

IF ( I OES« NE. 1 ) GO TO 3 59 

3 CONTINUE 60 

IF (Z:.LT*0.) ZC=0. 61 

IF (ZC.GT.U) ZC=1. 62 

CNCS=:NC 63 

CALL SEARCH ( ZC, CNC, PRC, WACC, ETAC, CNX ! 1 ) , NCN, PRX! 1 , 1 ) , WACX ! 1 • 1 ) , ET 64 

1AX! 1 , L ) , NPT ! 1),15,15, I GO) 65 

IF ( MODE® EQ* 1 ) GO TO 4 66 

IF { ( C NC~CNCS ) * GT® 0# 0005 *CNC ) MAPEDS-1 67 
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f**» CO O o O O' 


4 


IF (IG3.EQ.1.0R.IG0.EQ.2) WRITE (8,9) CNCS, WLH ( I GO > 68 

WAC=WA0C*P21/THETA 69 

IF ( I3ES.NE. 1 ) GO TO 5 70 

T210S= T21 71 

PRCCF= (PRCDS-1. )/(PRC-l. ) 72 

ETACCF=ETACDS/ETAC 73 

WACCF = WACDS/WAC 74 

WRITE (6,10) PRCCF.ET ACCF, WACCF.T21DS 75 

5 PRC=PRCCF*( PRC-1, )+l • 76 

ETAC=ETACCF*ETAC 77 

WAC=WACCF*WAC 78 

IF ( .N3T.DUMSPL.0R.PCBLID.NE.0. ) GO TO 6 79 

WA22=rfAC 80 

WAI=WA22 81 

WACI=WACC*WACCF 82 

6 WA32 = W A22-WAC 83 

WA21 S WAC 84 

WACC = W ACC»WACCF 85 

PCBL I = 1 .-WA21/WA22 86 

CALL WDUCT I 87 

IF (PCBLID.EQ.O. ) ERR ( 7) =( WAC-WA I ) /WAC 88 

IF (IDES. EQ.l. AND. PCBLID.EQ.O.) ERR(7)=l.E-4 89 

CALL THCOMP (PRC»ETAC,T21»H21,S21,P21»T3*H3»S3,P3) 90 

IF (PCBLC.GT.O.) BL:«PCBLC*WAC 91 

WA3=WAC-BLC 92 

BLDU=PCBLDU*BLC 93 

BL0B=PCBL0B*BLC 94 

BLHP=»CBLHP*BLC 95 

BLIP=>CBLIP*BLC 96 

BLLP=PCBLLP*BLC 97 

IF ( MODE. NE. 1 ) GO TD 7 98 

IF ( AB S ( CNC-CNCS ) . LE . 0.001*CNCS) GO TO 8 99 

WRITE (8,11) CNCS.CNC 100 

CALL ERROR 101 

PCNC=100. *THETA*CNC/THET AD 102 

CALL COCOMB 103 

RETURN 104 

105 

106 
107 

FORMAT ( 19H0* • * CNC OFF MAP, F10. 4, 2XA6, 11H* • •$$$$$$) 108 

10 FORMAT (18H0C0MPRESS0R DESIGN, 6X8H PRCCF=, E15. 8, 8H ETACCF= , E 15. 8, 109 

18H WACCF=,E15.8,8H T21 DS=, E15. 8 ) 110 

11 FORMAT ( 10H0CNC WAS= ,E15.8,11H AND N0W= .E15.8.24H CHECK PCNC I 111 

INPUT $$$$$$ ) 112 

END 113 


$ I BFTC WDUCT DECK 

SUBROJTINE WDUCT I 1 

COMMON / ALL/ 2 

1 WORD , IDES , JDES , KDES .MODE ,INIT ,IDUMP ,IAMTP , 3 

2IGASMX.IDBURN.IAFTBN, IDCD , IMCD , I DSHOC , I MSHOC , NOZFLT, 4 

3ITRYS ,LOOPER, NOMAP , NUMMAP, MAPEDG , TOL ALL , ARR ( 6 ) 5 

COMMON /DESIGN/ 6 

1PCNFGJ, PCNCGU.T4GU ,DUMD1 ,DUMD2 , DELFG , DELFN , DELSFC , 7 

2ZFDS , PCNFDS , PRFDS , ETAFDS , WAFDS , PRFCF , ETAFCF , WAFCF , 8 

3ZCDS , PCNCDS, PRCDS , ETACDS, WACDS ,PRCCF , ETACCF » WACCF , 9 

4T4DS , WFBDS , DTCODS , ETABDS , WA3CDS , DPCODS, DTCOCF , E TABCF , 10 
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4 

5 


5TFHPDSgCHHPDStETHPDS?TFHPCF?CNHPCF f ETHPCF f 0HHPCF 

f T2DS 

f 

11 

6 TFLPDS ® CMIPOS ® ETLPDS $ TFLPCF* CMLPCF * ETIPCF® DHLPCF 

f T21DS 


12 

7T24DS ? WFDDS 9 DTDUDS , ETADDS* V#A23DS t DPDUDS* DTDUCF 

9 ETADCF 

§ 

13 

8T7DS * WF ADS * DTAFDS * ETAADS* WG6CDS* OPAFDS* DTAFCF 

.ETAACF 

f 

14 

9A55 *A25 *A6 f A7 *AB $ A9 *A28 

f A29 

9 

15 

SPS55 9 AH55 f CVDNOZ , CVMNOZ* A8S AV f A9SAV *A28SAV 

9 A29SAV 


15 

COMMON / FRONT/ 



17 

1T1 ,P1 * HI *S1 ? T2 *P2 9 H2 

9 S2 

f 

18 

2T21 t P2 1 s H21 f S21 , T3 *P3 *H3 

t S3 

9 

19 

3T4 9 P4 *H4 9 S4 *T5 *P5 *H5 

9 S5 

* 

20 

4155 *P55 t H55 f S55 ,BLF *BLC s BLDU 

t BLOB 

t 

21 

5CNF 9 PRF 9 ETAF *WAFC ,WAF 9 tf A3 tWG4 

» F AR4 


22 

6 CMC s PRC tETAC » WACC *WAC ,ETAB *DPCOM 

9 DUMF 

S 

23 

7CNHP 9 ETATHPf DHTCHP 9 DHTC * BLHP *tfG5 *F AR5 

tCS 

f 

2 '+ 

8 CNLP y ETATLPt OHTCLP f DHTF f BLLP *^G55 »FAR55 

*HPEXT 

» 

25 

9AM * ALTP 9 ET AR *ZF ,PCNF *ZC ,PCNC 

t WFB 

t 

25 

$TFFHP t TFFLP 9 PCBLF *PCBLC 9 PC BLDU t PC BLOB ? PC BLHP 

9 PCBLLP 


27 

COMMON/SI DE/ZYX ( 48 )/ BACK/YZX 172) 



28 

COMMON ZDUMMYS/'DUMMY(2n»WA32,DPWGDS,DPW IMS, WA32DS, A38» AM38, V38 . 

29 

1T38 ? H38*P38* TS38 * PS38 f T39, H39 ? P39, TS39* V39* AM39, 

A39*BPRINT*WG37 f 

30 

2CVDWNS» FGMWMGt FGPWNGt FNW ING* FNMAI N* FWOVFNf PS39 t D I MMY ( 5 1 ) 

31 

COMMQvl/SPO0L2/T22,P22.H22,S22«T5O,P50,H50,S5O»WA22,ZI ,P 

cni*cni 9 pri 

32 

l,ETAI,rfACI,TFFIP,CNIP,ETATlP,DHTCIP,DHTI,BLIP,PCBLIP,PCNIGlJ,ZIOS, 

3 3 

2PCNIDS,PRIDS,ETAIDS,WAIDS,PRICF,ETAICF,WAICF,TFIPDS,CNIPDS,ETIPDS, 

34 

3TF IPCF » CNI PCF 9 ETAPCF j DHI PCF ? WAICDSf WAX f PCBL I ? BLI 

9 T22DS 

» WA21 

35 

DIMENSION ERRC9) 



35 

EQUIVALENCE { ERR , DUMMY { 1 1 ) ) 9 f PCBL I D* DUMMY! 61 ) ) 



37 

DATA AWORD/ 6 HHDUCTI/ 



38 

WORD= A^ORD 



39 

IF C PCBLID®GT*0® ) GO TO 3 



40 

DO 1 1 *24f 42 



41 

DUMMYC I ) = 0* 



42 

DO 2 1 *44 1 49 



43 

DUMMYC 11=0® 



44 

RETURN 



45 

CONTINUE 



46 

P32=P2 1 



47 

H32-H2 1 



48 

T32=T2 i 



49 

SPRINT =WA32/WAC 



50 

WA32C s $A32*SQRT(T32)/P32 



51 

IF C 1 3ES* EQ® 1 ) WA32DS-WA32C 



52 

DPW I N3=DP WGDS*WA32C/W A32DS 



53 

DPWIN3*AMINl(1.0 f DPWING) 



54 

P36-P32M 1* -DPWING) 



55 

T36=T32 



56 

H36=H32 



57 

CALL THERMO CP36, H36* T36 f S36,XX2* 1* 0«0* 0) 



58 

WG37=W A32 



59 

T37=T36 



60 

P37=P3 5 



61 

H37 = H3 5 



62 

S37=S36 



63 

NOZD-O 



64 

CALL CONVRG ( T37 , H37, P37 , S37 , 0. 0, WG37 , PI , I DES , A38, P38R , 

T38* H38t P38 

65 

l*S38*TS38*PS38 9 V38tAM38f ICON) 



66 

GO TO 15*5,5,4)*IC0N 



67 

CALL ERROR 



68 

T39 = T3 8 



69 

H39 = H3 3 



70 

P39 = P3 8 



71 

S39=S3 8 



72 


74 



0 o n 


TS39 = T S38 73 

V39=V3 3 74 

AM39=AM38 75 

A39= A3 8 76 

PS39=P S38 77 

IDSH0:=IC0N+3 78 

ERR(7)=(P38R-P38)/P38R 79 

IF UDES.EQ.l) WRITE (6,6) A38, AM38, A39.AM39 BD 

RETURN 81 

82 

83 

FORMAT ( 18HOINTER DUCT DESIGN, 5X,8H A38= , El 5. 8, 8H AM38=,E15.8 84 

1 , 8H A39=,E15«8,8H AM39=,E15.8) 85 

END 86 


$1 BFTC COCOMB DECK 

SUBROUTINE COCOMB 1 

COMMON / ALL/ 2 

1WORD .IDES , JDES * KDES .MODE ,INIT ,IDUMP , I AMTP , 3 

2IGASMX, IDBURN, IAFTBN, IDCD , IMCD , IDSHOC, I MSHOC , NOZFLT, 4 

3ITRYS ,LOOPER,NDMAP , NUMMAP , MAPEDG, TOLALL , ARR ( 6 ) 5 

COMMON /DESIGN/ 6 

1PCNFGJ.PCNCGU.T4GU , DUMD1 ,DUMD2 , DELFG , DELFN , DELSFC , 7 

2ZFDS , PCNFDS, PRFDS , ETAFOS , WAFDS , PRFCF , ETAFCF , WAFCF , 8 

3ZCDS , PCNCDS , PRCDS , ETACDS.WACDS ,PRCCF , ETACCF , WACCF , 9 

4T4DS , WFBDS , DTCODS , ETABDS , WA3CDS , DPCODS, DTCOCF , ET ABCF , 10 

5TFHPDS,CNHPDS,ETHPDS»TFHPCF,CNHPCF,ETHPCF,DHHPCF,T2DS , 11 

6TFLPDS,CNLPDS,ETLPDS, TFLPCF, CNLPCF, ETLPCF, DHLPCF ,T21DS , 12 

7T24DS , WFDDS , DTDUDS, ETADDS, WA23DS, DPDUDS, DTDUCF , ETAOCF, 13 

8T7DS , WFADS , DTAFDS , ETAADS , WG6CDS , DPAFDS, OTAFCF , ETAACF, 14 

9A55 , A25 ,A6 ,A7 ,A8 ,A9 ,A28 ,A29 , 15 

$PS55 , AM55 , CVDNOZ , CVMNOZ, A8SAV ,A9SAV , A28SAV, A29SAV IS 

COMMON / FRONT/ 17 

1T1 ,P1 , HI ,S1 ,T2 ,P2 ,H2 ,S2 , 18 

2T21 , P21 , H21 , S21 , T3 ,P3 ,H 3 ,S3 , 19 

3T4 ,P4 ,H4 ,S4 ,T5 ,P5 ,H5 ,S5 , 20 

4T55 , P55 , H55 ,S55 ,BLF ,BLC , 8LDU , BLOB , 21 

5CNF , PRF , ET AF ,WAFC ,WAF ,WA3 ,WG4 , F AR4 , 22 

6CNC , PRC , ET AC ,WACC ,WAC , ETAB .DPCOM , DUMF , 23 

7CNHP ,ETATHP,DHTCHP,DHTC , BLHP ,WG5 , FAR5 ,CS , 24 

8CNLP , ETATLP.DHTCLP, DHTF , BLLP ,WG55 ,FAR55 ,HPEXT , 25 

9AM , ALTP , ET AR ,ZF ,PCNF ,ZC ,PCNC ,WFB , 25 

$TFFHP , TFFLP ,PCBLF ,PCBLC , PCBLDU, PCBLQB, PCBLHP , PCBLLP 27 

COMMON/SIDE/ZYX(48)/BACK/YZX(72) 28 

COMMON/DUMMYS/DIMMY( 100) 29 

COMMON/ SPO0L2/T22,P22,H22.S22,T50,P50,H50,S50,WA22,ZI,PCNI,CNI,PRI 30 

i.ETAI, WACI, rFFIP,CNIP,ETATIP,DHTCIP,DHTI,BLIP,PCBLIP,PCNIGU,ZIDS, 31 

2PCNIDS,PRIDS,ETAIDS,WAIDS,PRICF,ETAICF,WAICF,TFIPDS,CNIPDS,ETIP0S, 32 

3TFIPC=,CNIPCF,ETAPCF,DHIPCF,WAICDS,WAI,PCBLI,BLI ,T22DS,WA21 33 

EQU I VALENCE ( FAR50,DIMMY( 21) ) , ( WG50, 01 MMY ( 20 ) ) , ( FXFN2M, DI MM Y ( 5 0 ) ) , 34 

kfxm2:p,dimmy(51) ) 35 

EQUIVALENCE ( HTF , DIMM Y( 62 ) ) , ( HCN, D IMMYI 65 ) ) , (HOH, 0 I MMY( 68 ) ) , 36 

1 (HDHC, 01 MMY (69) ) , ( HE T A , D IMM Y ( 74 ) ) 37 

LOGICAL FXFN2M, FXM2CP 38 

DIMENSION ERR ( 9 ) 39 

EQUIVALENCE ( ERR.DIMMYl 11) ) 40 

COMMON / COMB/PS I ( 15 ) , DELT 1 1 5, 15 ) , ETA 1 15 , 1 5 ) ,NPS,NPT(15) 41 
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D I HEMS I ON Q{9i,DUMB0( 15*15) 42 

DATA Ar/ORD/ 6HCOCOMB/ 43 

WORD=A WORD 44 

Q ( 2 1=0* 45 

Q ( 3 ) =3 « 46 

P3PSI=14.696*P3 47 

WA3C=WA3*SQRT(T3)/P3PSI 48 

IF CIDES.EQ.l) WA3CDS = WA3C 49 

DPCOM= DPCODS* ( WA3C/W A3CDS) 50 

IF ( DPCOM*GT * 1 • ) DPCOM=l • 51 

P4=P3*( l.-DPCOM) 52 

1 IF ( T4. GT * 4000# ) T4=4000. 53 

IF { T4.GE.1000. ) GO TO 2 54 

T4= 1033* 55 

IF { MODE* EQ* 1 ) MAPEDG=1 56 

2 DTCO=F 4-T3 5 7 

IF ( IDES* NE# 1 ) GO T3 3 58 

DTCODS =DT CO 59 

DTCGCF=DTCODS/DTCO 60 

3 DTCOOTCOCF*DTCO 61 

P3PS IM-P3PSI 62 

CALL SEARCH (-1 P3PS IN, DTCO , ETAB, DUMMY, PSI (1) , NPS , DELT C 1 , 1) , ETA ( 1 63 

1*1)* DJMBO (1*1)* NPT (1) *15*15*1 GO) 64 

IF C I30.EQ.7 ) CALL ERROR 65 

IF ( 1 3ES» NE. 1 ) GO TO 4 66 

ETABCF =ET ABDS/ETAB 67 

4 ET AB»E T ABCF*ET AB 68 

HV=(U t H-.4594317E-19*T4)~. 20341 16E-1 5 ) *T4+.2783643E-11 ) *T4+. 2051 69 

1501E-37 ) *T 4-* 245 311 6E -03 )*T 4-* 9433296E-01 )*T4*.1845537E+05 70 

CALL THERMO t P4, HA, T4, XXI, XX2, 0, 0, 0, 0) 71 

FAR4=( HA-H3 ) / ( HV*£TAB ) 72 

IF ( FAR4» LT • 0. ) FAR4=0. 73 

WFBX=F AR4*WA3 74 

IF (M3DE.NE.2) GO TO 7 75 

ERRW=( WFB-WFBX ) / WFB 76 

DIR^SQRTC WFB/WFBX) 77 

CALL AFQUIR { Q<1) , T4, ERRW, 0. , 20. , 0. 0001 , Dl R , T4T, I GO) 78 

GO TO {5,8*6) ,1 GO 79 

5 T4=T4T 80 

GO TO 1 81 

6 CALL ERROR 82 

7 WFB-WFBX 83 

8 CALL THERMO ( P4,H4,T4, S4,XX2, 1 ,FAR4,0 ) 84 

WG4=WFB+WA3 85 

IF { IDES . EQ« 1 ) WRITE (6,10) WA3CDS, ETABCF , DTCOCF 86 

IF ( F< M2CP ) GO TO 9 87 

CALL GOHPTB 88 

RETURN 89 

9 P50-P4 90 

H50-H4 91 

T50=T4 92 

S50=S4 93 

FAR50=F AR4 94 

WG50 = W G4 95 

C SET HIGH PRESSURE TURBINE PARAMETERS TO ZERO, NOT USED 96 

HTF=0® 97 

HCN=Q« 9B 

HDH-O. 99 

H0HC=O . 100 

HET A=3 • 101 

CALL COIPTB 102 

RETURN 103 

C 104 
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O O t-4 


0 FORMAT ( 1 7H0CQMBUST0R 
1H DTCDCF=,E15.8) 

END 


DESIGN, 7X8H WA3CDS=»E15 


105 

106 

8,8H ETABCF = * E 15. 8 , 8 107 

10B 

109 


SIBFTC COHPrB DECK 

SUBROUTINE COHPTB 1 

COMMON / ALL/ 2 

1WORD , IDES , JOES , KDES , MODE ,INIT .IDUMP , I AMTP , 3 

2IGASMX, IDBURN, IAFTBN, IDCD ,IMCD , IDSHOC, IMSHOC,NOZFLT, 4 

3ITRYS ,LOOPER, NOMAP , NUMMAP, MAPEDG, TOLALL , ARR ( 6 ) 5 

COMMON /DESIGN/ 6 

1PCNFGJ » PCNCGU, T 4GU ,DUMD1 ,DUMD2 ,DELFG , DELFN , DELSFC, 7 

2ZFDS , PCNFDS, PRFDS » ET AFDS, WAFDS ,PRFCF , ETAFCF , WAFCF , B 

3ZCDS fPCNCDSjPRCDS , ETACDS , WACDS ,PRCCF , ETACCF , WACCF , 9 

4T4DS , WFBDS , DTCODS , ETABDS, WA3CDS , DPCODS, DTCOCF , ETABCF, 10 

5TFHPDS,CNHPDS»ETHPDS» TFHPCF, CNHPCF, ETHPCF, DHHPCF , T2DS , 11 

6TFLPDS,CNLPDS,ETLPDS,TFLPCF,CNLPCF, ETLPCF,DHLPCF, T21DS , 12 

7T24DS , WFDDS , DTDUDS , ETADDS , WA23DS , DPDUDS , DTDUCF , ET ADCF, 13 

8T7DS , WFADS , DTAFDS , ETAADS, WG6CDS , OPAFDS, DTAFCF, ETAACF , 14 

9A55 , A25 ,A6 ,A7 , A8 ,A9 ,A28 ,A29 , 15 

$PS55 , AM55 , CVDNOZ ,CVMNDZ»A8SAV ,A9SAV » A28SAV, A29SAV 16 

COMMON / FRONT/ 17 

1T1 ,P1 , HI ,S1 ,T2 ,P 2 , H2 ,S2 , 18 

2T21 , P2 1 , H21 » S21 ,T3 ,P3 ,H3 ,S3 , 19 

3T4 ,P4 ,H4 ,S4 ,T5 ,P5 ,H5 ,S5 , 2D 

4T55 , P55 , H55 ,S55 * BLF ,BLC , BLDU , BLOB , 21 

5CNF , PRF , ETAF ,WAFC , WAF ,i!A3 , WG4 , F AR4 , 22 

6CNC , PRC , ETAC ,WACC ,WAC , ETAB ,DPCQM ,OUMF , 23 

7CNHP , ET ATHP, DHTCHP , DHTC , BLHP »WG5 ,FAR5 ,CS , 24 

8CNLP »ETATLP*DHTCLP* DHTF , BLLP ,WG55 .FAR55 ,HPEXT , 25 

9AM » ALTP , ET AR ,ZF , PCNF ,ZC ,PCNC ,WFB , 26 

STFFHP , TFFLP ,PCBLF ,PCBLC , PCBLDU, PCBLOB, PCBLHP , PCBLLP 27 

COMMON/SI DE/QXQ( 48 )/BACK/QWQ{ 72) 28 

COMMON/DUMMYS/DUMMY! 100) 29 

C0MM0N/SP0DL2/T22,P22»H22,S22»T50,P50»H50,S50*WA22»ZI»PCNI«CNI,PRI 30 

l.ETAI, (JACI,TFFIP,CNIP,ETATIP,DHTCIP,DHTI ,BLIP,PCBLIP,PCNIGU,ZIDS, 31 

2PCNIDS,PRIDS»ETAIDS»WAIDS,PRICF»ETAICF»WAICF»TFIPDS,CNIPDS»ETIPDS, 32 

3TFIPCF,CNIPCF,ETAPCF,DHIPCF,WAICDS,»<AI,PCBLI,BLI ,T22DS,WA21 3 3 

DIMENSION ERR( 9 ) 34 

EQUIVALENCE ( ERR, DUMMY! ID), I WG50, DUMMY! 20) ) , {FAR50, DUMMY! 21 ) ) 35 

EQUIVALENCE ( FXFN2M, DUMMY! 50 )), IFXM2CP, DUMMY ! 51 ) ) 36 

EQUIVALENCE ( DUMSPL, DUMMY! 59 ) ) 37 

EQUI VALENCE l TFFACT, DUMMY (62) ),( CNAC T, DUMMY! 65 ) ) , < OHCACT, DUMMY ( 68 ) ) 33 

1 , (DHT ACT, DUMMY ( 69) ), (ET A ACT , DUMMY 174)) 39 

EQUIVALENCE ( I TF, DUMMY ! 6 3) ) , ! I CN, DUMMY ( 66 ) ) , ( I DH, DUMMY ( 70 ) ) , 40 

KIDHC, DUMMY! 71) ) , ( I ETA, DUMMY ( 75 ) ) 41 

LOGICAL FXFN2M.FXM2CP, DUMSPL 42 

COMMON /HTURB/TFFX(15)»CNX!15»15)»DHTCX(15»15) ,ETATX(15,15) , 43 

1NTFFS, NPTTFF ( 15 ) 44 

DATA AW0RD,WL0,WHI/6HC0HPTB, 6H (LO) ,6H (HI) / 45 

WORD= AiNORD 46 

IF ( IOES.EQ.O) GO TO 1 47 

CNHPCr *CNHPDS*SQRT ( T4 ) / PCNC 48 

1 CNHP*CNHPCF*PCNC/SQRT (T4) 49 

CNHPS= CNHP 50 

TFFHP5=TFFHP 51 
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CALL SEARCH { -1. , TFFHP.CNHP, DHTCHP, ETATHP, TFFX( 1 ) ,NTFFS,CNX ( 1,1 ) , D 52 

1HTCX(1, 1) ,ETATX(1,1) , NPTTFF ( 1 ) , 15 , 15 , IG3 ) 53 

IF l I33.EG.1.0R. IGO.EQ.11.OR.IGO.EQ.21) WRITE (8,9) TFFHPS,WLO 54 

IF ( I33.EQ.2.0R. IG0. EG. 1 2. OR. IG3.EQ. 22 ) WRITE 18,9) TFFHPS,WHI 55 

IF (I33.EQ.10.0R.IG3.EQ.11.3R.I30.EQ.12) WRITE (8,10) CNHPS.WLO 55 

IF U33.EQ.20.0R.IG3.EQ.21.0R.IG0.EQ.22) WRITE 18,10) CNHPS,WHI 57 

IF 1 133. NE. 7) GO TO 2 58 

CALL ERROR 59 

RETURN) 60 

2 MAPGO" 0 61 

IF ( A3S ( TFFHPS-TFFHP ).LE.0.001*TFFHPS) GO TO 3 62 

MAPGO= I 63 

IF < ABS(CNHPS-CNHP).GT.0.001*CNHPS) MAPS0=3 64 

GO TO 4 65 

3 IF 1 AB$<CNHPS-CNHP).GT.0.001*CNHP$) MAPG3=2 56 

4 IF (M4PG0.GT.0) CALL MAPBAC ( 1, MAPG3, TFFHPS, TFFHP, CNHPS, CNHP, PCNC , 67 

1T4, MODE, NOMAP, NUMMAP ) 68 

IF ( N3MAP.GT • 0 ) RETURN 69 

TFHCAL =WG4*SQRT ( T4)/ ( 14.696*P4) 70 

BTUEXT =0.706705*HPEXT 71 

DHTCC= ( BTUEXT+WAC* ( H3-H2 1 ) ) / ( WG4*T4) 72 

IF (IDES.EQ.O) GO TO 5 73 

TFHPCF =TFHPOS/ TFHCAL 74 

DHHPCF=DHTCC/DHTCHP 75 

ETHPCF = ETHPDS/ ET ATHP 7 6 

WRITE (6,11) CNHPCF, TFHPCF, ETHPCF, DHHPCF 77 

5 TFHCAL =TFHPCF*TFHCAL 78 

DHTCHP-DHHPCF*DHTCHP 7 9 

ETATH J = ETHPCF* ET ATHP 80 

DHTC-3HTCC*T4 81 

TFFACr=TFHCAL/ TFHPCF 82 

CNACT=CNHP/CNHPCF 83 

OHCACT ^DHTCHP/DHHPCF 8 4 

OHT ACT »DHTC 85 

ET AACT *ET ATHP 85 

ERR ( 1) - ( TFHCAL-TFFHP ) /TFHCAL 87 

ERR( 2) ={ DHTCC-DHTCHP ) /DHTCC 88 

CALL MTURB ( DHTC , ET ATHP ,FAR4, H4, S4, P4, T50 ,H50, S50, P50 ) 89 

IF (BLHP.LE.O.) GO TO 6 90 

FAR5=dFB/( WA3+BLHP ) 91 

FAR50-WFB/(WA3+BLHP) 92 

WG 5 0= W 34+ BL HP 93 

H50M 3LHP*H3+WG4*H50 ) /WG50 94 

CALL THERMO ( P50,H50 , T50,S50, XX2, 1 , FAR50, 1 ) 95 

GO TO 7 96 

6 FAR50= FAR4 97 

WG50 = rf 34 98 

7 IF ( F< FN2M. OR.OUMSPL ) GO TO 8 99 

CALL C3IPTB 100 

RETURN 101 

8 P5-P53 102 

H5-H53 103 

T5= f 50 104 

S5 = S 50 105 

FAR5 = F AR50 106 

WG5 = W3 50 107 

C SET MIDDLE TURBINE PARAMETERS TO ZERO, NOT USEO 108 

I TF = 0 109 

ICN=0 110 

I DH=0 111 

I DHC=D 112 

I ET A“0 113 
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CALL COLPTB 114 

RETURN 115 

116 

117 

118 

FORMAT (19H0**»**TFFHP OFF MAP , FIO. 4, 2XA6, 11H*****SS$$$$ ) 119 

10 FORMAT < 1 9H0***** CNHP OFF MAP, F 10. 4, 2XA6, 1 1H***»»$$$$$$ ) 120 

11 FORMAT (20H0H.P. TURBINE DES I GN, 5X7HCNHPCF = , El 5. 8 , 8H TFHPCF* , El 5 . 8 121 

1 » 8H ETrlPCF=,E15.8,8H DHHPCF=,E15.8) 122 

END 123 


SIBFTC COIPTB DECK 

SUBROUTINE COIPTB 1 

COMMON / ALL/ 2 

1W0RD , IDES , JDES , KDES »MODE ,INIT ,IDUMP ,IAMTP , 3 

2IGASMX,IDBURN»IAFTBN» IDCD , IMCD » I DSHOC , I MSHOC , NOZFLT, 4 

3ITRYS ,LOOPER, NOMAP , NUMMAP, MAPEDG, TOLALL, ARR l 6) 5 

COMMON /DESIGN/ 6 

1PCNFGJ, PCNCGU»T4GU ,DUMD1 ,DUMD2 , OELFG , DELFN ,DELSFC, 7 

2ZFDS , PCNFDS , PRFDS , ETAFDS, WAFDS ,PRFCF , ETAFCF , WAFCF , 8 

3ZCDS , PCNCDS, PRCDS , ETACDS, WACDS ,PRCCF , ETACCF , WACCF , 9 

4T4DS , WFBDS , DTCODS , ETABDS , WA3CDS, DPCODS , DTCOCF , ETA8CF , ID 

5TFHPDS»CNHPDS,ET HP OS, TFHPCF, CNHPCF* ETHPCFtDHHPCF, T2DS , 11 

6TFLPDS,CNLPDS,ETLPDS,TFLPCF»CNLPCF,ETLPCF, DHLPCF , T210S , 12 

7T24DS , WFDDS , DTDUDS , ETADDS , WA23DS, OPDUDS, DTDUCF , ETADCF , 13 

8T7DS , WF ADS , DTAFDS » ETAADS, WG6CDS , DP AFDS.DTAFCF , ETAACF , 14 

9A55 , A25 ,A6 , A7 ,A8 ,A9 ,A28 ,A29 , 15 

$PS55 , AM55 ,CVDNDZ,CVMNOZ, A8SAV ,A9SAV , A28SAV , A29SAV 16 

COMMON / FRONT/ 17 

1T1 ,P1 , HI ,S1 ,T2 ,P2 ,H2 ,S2 , 18 

2T21 , P21 , H21 « S21 , T3 ,P3 ,H3 ,S3 , 19 

3T4 ,P4 ,H4 ,S4 , T5 ,P5 ,H5 ,S5 , 20 

4T55 , P55 , H55 , S55 , BLF ,BLC , BLDU , BLOB , 21 

5CNF , PRF , ETAF ,WAFC ,WAF ,WA3 ,WG4 ,FAR4 , 22 

6CNC , PRC , ET AC ,WACC ,WAC , ETAS ,OPCOM ,OUMF , 23 

7CNHP , ETATHP, DHTCHP , DHTC , BLHP ,rfG5 , FAR5 ,CS , 24 

8CNLP , ET ATLP, DHTCLP , DHT F , BLLP ,WG55 ,FAR55 ,HPEXT , 25 

9AM , ALTP »ETAR , ZF ,PCNF ,ZC ,PCNC ,WFB , 26 

STFFHP ,TFFLP ,PCBLF ,PCBLC ,PCBLDU,PCBLOB,PCBLHP,PCBLLP 27 

COMMON/SI DE/QXQl 48 ) / B ACK/QWQ I 72 ) 28 

COMMON/DUMMYS/DUMMY! 100) ' 29 

COMMON/SPOOL 2/T22, P22, H22, S22, T50, P50, H50, S50, WA22, ZI , PCNI ,CNI , PRI 30 

1,ETAI, HACI»TFFIP,CNIP,ETATIP,DHTCIP,DHTI,BLIP,PCBLIP,PCNIGU,ZIDS, 31 

2PCNIDS,PRIDS,£TAIDS,WAIDS,PRICF,ETAICF,WAICF,TFIPDS,CNIPOS,ETIPOS, 32 

3TFIPCF,CNIPCF,ETAPCF,DHIPCF,WAICDS»WAI,PCBLI,BLI ,T22DS,WA21 33 

COMMDN/TERBMD/DHMDS V, TFMDSV,CNMDSV, ETMDSV, DHMDOS 34 

COMMON/ ITURB/TFFXl 15 ) ,CNX( 15 , 1 5 ) , DHTCX! 15, 1 5) , ETATX! 15 , 1 5 ) , 35 

1NTFFS, NPTTFF ( 15 ) 36 

EQUIVALENCE ( FXFN2M, DUMMY! 50 )) , I FXM2CP, DUMMY ( 51 ) ) 37 

LOGICAL FXFN2M,FXM2CP 38 

EQUIVALENCE { AFTFAN, DUMMY! 581) 39 

LOGICAL AFTFAN 40 

COMMON/HTURB/TFFY! 15 ) ,CNY( 15, 15 ) , DHTCY t 15, 1 5) , ETATY! 15,1 5 ) , NTF YS , 41 

1NPTTSF ( 15 ) 42 

DIMENSION ERR! 9 ) 43 

EQUIVALENCE ! ERR, DUMMY! 11) ) , ! WG50, DUMMY ! 20) > , IF AR5 0, DUMM Y ( 2 IS) 44 

EQU I VALENCE l TFFACT, DUMMY! 63) ) ,! CNACT , DUMMY ! 66 ) ) , ! DHCACT , DUMMY l 70) ) 45 

1.1DHTACT, DUMMY! 71 ) ), (ETAACT, DUMMY! 75 ) ) 46 
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DATA AW0RD,WL0,WHI/6HC0IPTB,6H (LO) »6H (HI) / 47 

H22SAY=H22 48 

IF (AFTFAN) H22=H2 49 

WORD=AWORD 50 

IF (IDES.EQ.O) GO TO 1 51 

CNIPCF=CNIPDS*SQRT(T50)/PCNI 52 

IF (FXM2CP) CNIPCF=CNHPDS*SQRT (T50)/PCMI 53 

1 CNIP*:'(IPCF*PCNI/SQRT(T50) 54 

CNIPS*CNIP 55 

TFF IPS =TFFI P 56 

IF (FXM2CP) GO TO 2 57 

CALL SEARCH ( -1. ,TFF I P ,CNIP, DHTCIP t ETATI P , TFFX( l ) ,NTFFS, CNX( 1 , l) , D 58 

1HTCXI l » 1) ,ETATX(1,1),NPTTFF( 1), 15* i5,IG3) 59 

2 IF (FKM2CP) CALL SEARCH (-1. , TFFI P» SNIP , DHTCIP, ETATIP , TFFYC l )» NTFY 60 

1S,CNY(1,1),DHTCY(1,1),ETATY( 1, 1 > , NPTTSF ( 1 ) , 15, 15 , 1 GO ) 61 

IF (IS3.EQ.1.0R.IG0.EQ.11.0R.IG0.EQ.21) WRITE (8,9) TFFIPS,WLO 62 

IF (IS3.EQ.2.0R.IGO.EQ.12.0R.IG3.E0.22) WRITE (8,9) TFFIPS.WHI 63 

IF (ISO. EQ. 10. OR. IG3.EQ.il. OR. IGO.EQ. 12) WRITE (8,9) CNIPS,WLO 64 

IF ( 133. EQ. 20. OR. IGO.EQ. 21. OR. IGO.EQ. 22) WRITE (8,10) CNIPS.WHI 65 

IF (I33.NE.7) GO TO 3 66 

CALL ERROR 67 

RETURN 68 

3 MAPGD* 3 69 

IF ( ABS ( TFFI PS-TFFIP ) . LE.0.001*TFF IPS ) GO TO 4 70 

MAPG0=1 71 

IF ( ABS ( CNIPS-CNIP ) • GT,0,001*CNIPS ) MAP30=3 72 

GO TO 5 73 

IF ( ABS(CNIPS-CNIP).GT.0.001*CNIPS) MAPG0=2 74 

IF (MftPGO.GT.O) CALL MAPBAC ( 3, MAPSQ, TFF I PS, TFF I P , CNI PS, CNI P, PCNI , 75 

1T4, MODE, NOMAP, NUMMAP) 76 

IF (N3MAP.GT.0) RETURN 77 

TFICAl=WG50*SQRT(T50)/(14.696*P50> 78 

DHT IC*(WAI*(H21-H22) )/(WG50*T50) 79 

IF (FXM2CP) DHTI C=f • 706705*HPEXT+WAC* ( H3-H21 )+WAI*(H2l~H22) )/(WG50 80 

1*T50 ) 81 

IF ( IDES. EO. 0) GO TO 6 82 

TFIPCF=TFIPDS/TFICAL 83 

DHI PCF*DHTIC/DHTCIP 84 

ET IPCF*ET I PDS/ ETATIP 85 

IF ( FXM2CP ) TFIPCF=TFHPDS/TFICAL 86 

IF ( FXM2CP) ETIPCF*ETHPDS/ETATIP 87 

WRITE (6,11) CNIPCF,TFIPCF,ETIPCF,DHIPCF 88 

6 TFICAL=TFI PCF*TF I CAL 89 

DHTCIP*DHIPCF*DHTCIP 90 

ETATIP=ETIPCF*ETATIP 91 

DHTI*DHTIC*T50 92 

TFF ACT =TFICAL/TFIPCF 93 

CNACT=CNI P/CNIPCF 94 

DHCACT “DHTC IP/DHI PCF 95 

DHT ACT = DHTI 96 

ETAACT =ET ATI P 97 

Nl=8 98 

N2*9 99 

IF ( FXM2CP ) Nl=l 100 

IF (FXM2CP) N2=2 101 

ERR( Ml ) =( TFICAL-TFFI P)/TFICAL 102 

ERR(N2)=( DHTIC-DHTCIP )/DHTIC 103 

CALL THTURB ( DHTI , ET AT IP ,FAR50,H50, S50, P50, T5,H5,S5, P5 ) 104 

IF (BLIP.LE.O.) GO TO 7 105 

FAR5=WFB/ (WA3+BLHP+BLIP) 106 

WG5=WS50+BLIP 107 

H5=(BLIP*H3+WG50*H5)/WG5 108 
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CALL THERMO (P5,H5,T5,S5,XX2,i,FAR5, II 109 

GO TO 3 110 

7 FAR5=F AR50 111 

WG5=W350 112 

H22=H2 2SAV 113 

8 CALL COLPTB 11%. 

RETURN 115 

116 
117 
113 

FORMAT l 19H0*****TFF IP OFF MAP,F10.4,2XA6, 11H*****$$S$$S ) 119 

10 FORMAT (19H0***** CNIP OFF MAP,F10.4,2XA6,11H***»*S$$S$S) 120 

11 FORMAT (20H0I.P. TURBINE DES IGN, 5X7HCNI PCF=, E15. 8 , 8H TFI PCF = » E15 . 8 121 

1 »8H ETIPCF=,E15.8»8H DHIPCF=,E15.8> 122 

END 123 


SIBFTC COLPTB DECK 

SUBROUTINE COLPTB 1 

COMMON / ALL/ 2 

1WORD , IDES » JDES » KOES ,MOOE ,INIT ,IDUMP ,IAMTP , 3 

2 1 GAS MX, ID BURN, I AFT BN » IDCD , IMCD * IDSH3C, I MSHOC . NOZFLT, % 

3ITRYS .LOOPER, NOMAP ,NUMMAP, MAPEDG, TOLALL, ARR ( 6 ) 5 

COMMON /DESIGN/ 6 

1PCNFGJ»PCNCGU»T4GU , DUMD1 ,DUMD2 , DELFG »DELFN ,DELSFC, 7 

2ZFDS »PCNFDS»PRFDS , ET AFDS, WAFDS • PRFCF , ETAFCF , WAFCF . 3 

32CDS t PCNCDS, PRCDS , ETACDS, WACDS ,PRCCF , ETACCF , WACCF , 9 

4T4DS , WFBDS , DTCODS » ETABDS, WA3CDS, DPCODS, DTCQCF » ETA8CF , 10 

5TFHPDS , CNHPDS, ETHPDS , TFHPCF, CNHPCF » ETHPCFt DHHPCF , T2DS , 11 

6TFLPDS » CNLPDS » ETLPDS »TFLPCF»CNLPCF»ETLPCF,0HLPCF»T21DS , 12 

7T24DS , MFDDS , DTDUDS , ETADDS, WA23DS, DPDUDS, DTDUCF, ETAOCF, 13 

8T7DS , WF ADS , DTAFDS , ETAADS, WG6CDS, 3PAFDS, DTAFCF, ETAACF , 1% 

9A55 t A25 ,A6 ,A7 ,A8 ,A9 ,A28 ,A29 , 15 

$PS55 » AM55 .CVDNOZ , CVMN3Z, A8SAV ,A9SAV , A28SAV, A29SA V 16 

COMMON / FRONT/ 17 

1T1 ,P1 * HI ,S1 , T2 ,P2 »H2 ,S2 , 18 

2T21 » P21 , H21 , S21 ,T3 ,P3 ,H3 ,S3 , 19 

3T4 ,P4 ,H4 ,S4 ,T5 ,P5 ,H5 ,S5 , 20 

4T55 , P55 ,H55 ,S55 » BLF ,BLC ,8LDU .BLOB , 21 

5CNF » PRF »ET AF ,WAFC ,WAF ,WA3 ,WG4 ,FAR4 , 22 

6CNC . PRC ,ETAC ,WACC ,WAC ,ETAB .DPCOM . DUMF , 23 

7CNHP . ET ATHP. DHTCHP . DHTC « BLHP ,*G5 *FAR5 ,CS , 24 

8CNLP » ET ATLP. DHTCLP . DHTF . BLLP ,XG55 » FAR55 .HPEXT , 25 

9AM , ALTP » ETAR , ZF ,PCNF , ZC ,PCNC ,WFB , 26 

$TFFHP .TFFLP .PCBLF . PCBLC , PCBLDU, PCBLOB, PCBLHP , PCBLLP 27 

COMMON/SI DE/QXQ( 48 l/BACK/QWQ C 72 ) 28 

COMM ON /DUMMYS/ DUMMY ( 100 I 29 

EQUIVALENCE { FXFN2M, DUMMY! 50 )),{ FXM2CP, DUMMY ( 51 ) I 30 

LOGICAL FXFN2M.FXM2CP 31 

EQUIVALENCE (AFTFAN, DUMMY! 58 ) > 32 

EQUIVALENCE! TFFACT. DUMMY (64) ). (CNACT. DUMMY ( 67) I ,( DHCACT, DUMMY ( 72 ) ) 33 

1»(DHT ACT, DUMMY (73))» ( ETAACT, DUMMY ( 76 ) > 34 

LOGICAL AFTFAN 35 

COMMON/ SPOOL2/T22 ,P2 2 »H22» S22,T50,P50,H50»S50»WA22»ZI»PCNI,CNI,PRI 36 

l,ETAI,rfACI,TFFIP,CNIP,ETATIP,DHTCIP,DHTI,BLIP,PCBLIP,PCNIGU,ZIDS, 37 

2PCN IDS, PR IDS, ETA IDS, WAI DS, PR I CF, ETAI CF , WAI CF ,TF I PDS, CNI PDS, ETI PDS , 38 

3TFIPCF,CNIPCF,ETAPCF,DHIPCF,WAICDS,WAI,PCBLI,BLI ,T22DS,WA21 39 

COMMON /LTURB/TFFX(15)»CNX(15»15),DHTCX(15»15),ETATX(15»15), 40 

1NTFFS, NPTTFF ( 15) 41 
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DIMENSION ERRC9) 42 

EQUIVALENCE C ERR, DUMMY (111! 43 

DATA ArfORDfl^LOt WH1/6HC0LPTB» 6H (10) 9 &H f HI I / 44 

WORD=AWORD 45 

IF { IDES « EQ» 0 S GO TO l 46 

CNLPC p =CNLPDS*SQRT( T5 ) /PCNF 47 

1 CNLP=:NLPCF*PCNF/SQRTCT5) 48 

CNLPS* CNLP 49 

TFFLPS *TFFLP 50 

CALL SEARCH 1-1. ,TFFLP ,CNLP, DHTCLP* ETATLP* TFFXtl ) , NTFFS,CNX I 1 f II , D 51 

IHTCXdt 1) tETATX( 1»1> ,NPTTFF( 1) , 15, 15* IGO ) 52 

IF ( ISO.EQ. l.OR. I GO* EQ.ll.0R.IGQ.EQ.2l) WRITE C 8» 8 1 TFFLPS,WLO 53 

IF ( I30.EQ.2.0R.IG0.EQ.12.0R.IG0.EQ.22) WRITE (8,8) TFFLPSjWHI 54 

IF ( IGO.EQ.iO.OR.IGO.EQ.ll.OR.IGO.EQ.12) WRITE (8*9) CNLPS*WLO 55 

IF (I30.EQ.20.0R.IG0.EQ.2i.0R.IG0.EQ.22) WRITE (8,9) CNLPS*WHI 55 

IF ( ISO.NE* 7 ) GO TO 2 57 

CALL ERROR 58 

RETURN 59 

2 MAPGQ-0 60 

IF (ABS(TFFLPS-TFFLP).LE.0.001*TFFLPS) GO TO 3 6i 

MAPGO* 1 62 

IF ( ABS ( CNLPS-CNLP) * GT.O .0G1*CNLPS) MAPS0=3 63 

GO TO 4 64 

IF (ABS (CNLPS— CNLP ) * GT .O.0O1*CMLPS ) MAPG0*2 65 

IF ( MAPGO# GT .0 ) CALL MAPBAC ( 2, MAPGO, TFFLPS, TFFLP , CNLPS, CNLP, PCNF , 65 

1T4» MODE * NOMAP t NUMMAP ) 67 

IF (NOMAP. GT.O) RETURN 68 

TFLCAL -WG5*SQRT ( T5)/ ( 14.696*P5 ) 69 

DHTCF=WAF*l H22-H2)/ ( WG5*T5) 70 

IF (F*FN2M> DHTCF«( W AF*( H22-H2)+WAI« ( H21-H22) ) /( WG5«T5 ) 71 

IF ( FKFN2M. AND. AFTFAN ) DHTCF- ( WAF* S H22-H2 ) +WAI * ( H2l~H2 ) ) / ( WG5»T5 ) 72 

IF (IDES.EQ.O) GO TO 5 73 

TFLPCF=TFLPD$/TFLCAL 74 

DHLPCF-DHTCF/DHTCLP 75 

ETLPCF=ETLPDS/ETATLP 76 

WRITE (6,10) CNLPCF, TFLPCF, ETLPCF, DHL PDF 77 

TFLC Al=TFLPCF*TFLCAL 78 

DHTCL>*DHLPCF*DHTCLP 79 

ETATLP=ETLPCF*ETATLP 80 

DHTF=0HTCF*T5 81 

TFFACT = TFLCAL/TFLPCF 82 

* CN ACT- CNLP/ CNLPCF 83 

DHCACT =DHTCLP/DHLPCF 84 

DHT ACT = DHTF 85 

ET AACT = ET ATLP 85 

ERR ( 3 ) - ( TFLCAL-TFFLP ) /TFLCAL 87 

ERR ( 4) = ( DHTCF-DHTCLP ) /DHTCF 88 

CALL MTURB (DHTF,ETATLP ,FAR5,H5, $5,P5, T55,H55 »S55,P55 ) 89 

IF (BLLP.LE.O.) GO TO 6 90 

FAR55=WFB/( WA3+BLHP+BLLP 3 91 

WG55=W35+BLLP 92 

H55= ( 3LLP*H3+WG5*H55 ) /WG55 93 

CALL THERMO ( P55,H55* T55*S55*XX2*1 *FAR55, 1 ) 94 

GO TO 7 95 

F AR55=FAR5 96 

WG55=W35 97 

CALL FRTOSD 98 

RETURN 99 

100 
101 

FORMAT C19H0*****TFFLP OFF MAP* F10. 4* 2XA6® 11H*****$S$$$$ ) 102 

FORMAT t!9H0*®*»* CMLP OFF MAP,F10.4, 2XA6, ) 103 
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FORMAT C20H0L.P. TURBINE DESIGN* 5X7.HCNLPCF = » E15. 8, 8H TFLPCF = » EI5 . 8 
1 »8H ETLPCF=,E15.8*8H DHLPCF= , E15. 8) 

END 
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SIBFTC coduct deck 

SUBROUTINE CODUCT 1 

COMMON / ALL/ 2 

1W0RD * IDES * JDES * KDES * MODE ,INIT ,IDUMP ,IAMTP , 3 

2IGASM<« ID BURN* IAFTBN* IDCD ,IMCD , IDSHDC,IMSHOC,NOZFLT, 4 

3ITRYS ,LOOPER, NOMAP , NUMMAP, MAPEDG, T0LALL,ARR<6) 5 

COMMON /DESIGN/ 6 

1PCNFGJ » PCNCGU.T4GU ,DUMD1 , DUMD2 »DELFG »DELFN ,DELSFC, 7 

2ZFDS .PCNFDS.PRFDS , ETAFDS. WAFDS ,PRFCF .ETAFCF.WAFCF * 8 

3ZCDS * PCNCDS * PRCDS , ETACDS,WACDS ,PRCCF *ETACCF* WACCF , 9 

4T4DS * HFBDS .DTCODS, ETABDS,WA3CDS,DPC0DS,DTC0CF,ETABCF, 10 

5TFHPDS , CNHPDS* ETHPDS * TFHPCF* CNHPCF* ETHPCF* DHHPCF , T2DS * 11 

6TFLPDS , CNLPDS* ETLPDS* TFLPCF, CNLPCF , ETLPCF, DHLPCF , T21DS , 12 

7T24DS * WFDDS * DTDUDS , ET ADDS* WA23DS, DPDUDS * DTDUCF , ETADCF » 13 

8T7DS * WF ADS .DTAFDS » ETAADS. WG6CDS, DPAFDS, DTAFCF, ETAACF, 14 

9A55 » A25 *A6 *A7 * A8 *A9 ,A28 *A29 * 15 

$PS55 • AM55 , CVDNOZ »CVMNDZ» A8SAV ,A9SAV .A28SAV, A29SAV 16 

COMMON /FRONT /XXI 80) 17 

COMMON / SIDE/ 18 

1P1 * WAF * MAC * BLF » BLDU ,H3 ,DUMS1 .DUMS2 , 19 

2T21 * P21 »H21 * S21 ,T23 ,P23 ,H23 ,S23 , 20 

3T24 * P24 »H24 ,S24 ,T25 ,P25 ,H25 ,S25 , 21 

4T28 • P28 * H28 *S28 *T29 ,P29 ,H29 ,S29 , 22 

5WAD *WFD * WG24 ,FAR24 , ETAD ,DPDUC , BYPASS. DUMS3 , 23 

6TS28 * PS28 ,V28 ,AM28 ,TS29 ,PS29 ,V29 ,AM29 24 

COMMON/ BACK /ZZ ( 72 ) 25 

COMMON/DUMMYS/DUMMYC 100) 26 

C0MM0N/SP00L2/T22.P22.H22, S22.T50, P50.H50, S50.WA22.ZI.PCNl.CNI »PRI 27 

1*ETAI,W AC I. TFFIP.CN IP* ET ATI P »DHTCIP, DHTI * BL I P» PCBLI P, PCNIGU* Z IDS * 28 

2PCNIDS,PRIDS,ETAIDS»WAIDS,PRICF,ETAICF»WAICF»TFIPDS»CNIPDS,ETIP0S, 29 

3TFI PCF , CN IPCF,ET APCF , DHI PCF* WAICDS, WAI .PCBLI* BL I .T22DS.WA21 30 

DIMENSION ERRC9) 31 

EQUIVALENCE (ERR, DUMMY! 11) ) 32 

EQU I VALENCE ( A24, DUMMY (4) ), (AM23,DUMMY(5) ) 33 

EQUIVALENCE ( AFTFAN, DUMMY! 58 ) ) , ( PCBL I D, DUMMY! 61 ) ) 34 

LOGICAL AFTFAN 35 

DIMENSION Q( 9 ) 36 

DATA AH0RD1 * AW0RD2/6HC0DUCT , 6HDN0ZZL/ 37 

W0RD=AW0RD1 33 

Q( 2 ) =0. 39 

Q( 3 ) =3* 40 

AJ = 773 .26 41 

CAPSF=2116.2170 42 

G0G0=3. 0 43 

G=32. 174049 44 

WAX=WAF-WAI-BLF 45 

IF (PCBLID.EQ.O. ) WAX=WAF-WAC-BLF 46 

IF (AFTFAN) WAX=WAF-BLF 47 

HAD=WAX+BLDU 48 

P23-P22 49 

C*** DRY LOSS 50 

H23=(3LDU*H3+WAX*H22)/WAD 51 

CALL THERMO (P23,H23,T23,S23,XX2*1,0.0, 1) 52 

WA23CMAD*SQRT(T23)/P23 53 
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IF (13ES.EQ.1) WA23DS=WA23C 54 

BYPASS=(WAF~WAI J/WAI 55 

IF ( Ar TFAN ) BYPASS=W AF/WAI 56 

DPDUC=DPDUDS*( WA23C/WA23DS) 57 

IF (D S 3UC.GT .1. ) DPDUC=1 .0 58 

P24=P23*t l.-DPDUC) 59 

CALL PROCOM (0.,T23,XX1,XX2, XX3,XX4,PHI23,XX6) 60 

IF ( IS ASMX.GT • 0 ) IDBURN=0 61 

IF (SJBFAN.GT.O. I GO TO 7 62 

AM24=AM23 63 

TS24=r 23*0. 875 64 

1 DO 2 1=1,15 65 

CALL PROCOM (0. ,TS24,CS24,AK24,CP24,REX24,PHIS24»HS24) 66 

V24=AH24*CS24 67 

HSCAL=H23-V24**2/(2.*G*AJ) 68 

DELHS= HSC AL-HS24 69 

IF ( ABS(DELHS) .LE.0.001*HSCAL) GO TO 3 70 

2 TS24=rS24+DELHS/CP24 71 

GO TO 11 72 

3 C1=P24*S0RT(G/(T23*AJ) >*CAPSF 73 

IF I IOES.NE. 1) GO TO 4 74 

IF t G330.GT .0. ) GO TO 4 75 

ASTOA=( (AK24+1. >/2.)**( ( AK24+1. ) / ( 2.* ( AK24-1. ) ) ) *AM24* C 1 .+ ( I I AK2 4- 76 

ll.)/2.)*AM24**2))**l IAK24«-1.)/(2.*(AK24-1.)) > 77 

EQWCR=SQRT(G*AK24/REX24/ AJ)/{ S0RT( 518.69) /2116.2)* ( 2. 0/ ( AK24+1. > )* 78 

1*( (AX 2 4+1. )/2./( AK24-1. ) ) 79 

WA23C:=WA23C/SQRT(518.69) 80 

A24=l. / AST0A*HA23CC/ EQWCR 81 

G0G0=1 .0 82 

4 WQA=WAD/A24 83 

WQAT*:i*SQRT( AK24/REX24)*AM24/( 1. + UK24-1. )*AM24**2/2. >**( ( AK24+1. 84 

1)/(2.*(AK24-1. ) ) ) 85 

DIR=M3 A/WQAT 86 

EW= ( M3 A-WQAT ) / WQ A 87 

CALL AFQUIR C Q ( 1 ) , AM24, E W, 0. , 30. , 0. 001, D I R, AM24T , I GO ) 8B 

GO TO (5,6,11) ,IGO 89 

5 AM24=AM24T 90 

IF I AM24.GT.1.0) AM24=0. 5 91 

GO TO l 92 

PS24=P24/EXP( (PHI23-PHIS24)/REX24) 93 

IF l IOBURN.GT .0) GO TO B 94 

*** NON-DJCT BURNING 95 

T24=T2 3 96 

WFD=0. 97 

FAR24=0 98 

GO TO 17 99 

IF (I3BURN.EQ.2) T24*T23+2000. 100 

IF (T24.GT.4000. ) T24-4000. 101 

IF (T24.LT.T23) T24=T23 102 

C*** DUCT 3URNING 103 

RH042=CAPSF*PS24/(AJ*REX24*TS24) 104 

PS42 = P 524 105 

V42=V2 4 106 

Q( 2 ) =3 . 107 

0( 3 ) =3 . 108 

C *** IF DESIRED, ENTER CALCULATIONS FOR ETAD HERE 109 

HV= ( ( ( ( ( (-. 45943 17E-19*T 24) -• 203411 6E-15 ) *T24+. 2783643E-1 l)*T24+.2 110 

1051501E-07) *T24-. 24531 16E-03 )*T24~. 94332 96E- 01 )*T24+.1845537E+05 111 

CALL THERMO (P24.HA.T24, XX1,XX2,0, 0.0,0) 112 

FAR24= l HA-H23) / ( HV*ET AD) 113 

IF (FAR24.LT. 0. ) FAR24=0. 114 

HFDX=FAR24*HAD 115 

IF ( I 38URN.NE. 2) GO TO 12 116 
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ERRW=( tJFD-WFDX } /WFD 11? 

DIR=S3RT(WFD/WFDX> 118 

CALL AFQUIR ( Q( 1 ) , T24, ERRW, 0. , 20. , 0. 0001 , DI R , T24T, IGO > 119 

GO TO (10, 13, 11), IGO 123 

10 T24=T24T 121 

GO TO 9 122 

11 CALL ERROR 123 

12 WFD=WFDX 12 A 

13 CONTINUE 125 

C*** MOMENTUM LOSS 126 

WG24=HFD+WAD 127 

CALL PROCOM ( FAR24, T 24, XXI , XX2. XX3, REX24, PHI24.H24) 128 

RH024=CAPSF*P24/(AJ*REX24*T24) 129 

V24=W324/(RH024*A24) 130 

Q(2)=3. 131 

Q!3)=D. 132 

PS24= S S42-0. 01 133 

14 RHQ24= WG24/ ( V24* A24) 134 

HS24=H24-V24**2/(2.*G*AJ ) 135 

CALL THERMO ( 1.0, HS24, TS24, PHIS24, XX2.1.F AR24, 1) 136 

IF (TS24.GE.301. I GO TO 15 137 

CALL THERMO (1.0.HS24.400. ,PHIS24,XX2, 1,FAR24,1J 138 

V24=5QRT( 2. *G*AJ* ( H24-HS24) ) 139 

GO TO 14 140 

15 PS24=RH024*AJ*REX24»TS24/CAPSF 141 

PS24A* PS42+ ( RH042*V42**2-RH024*V24**2 ) / I G*CAPSF ) 142 

DIR=S3RT( ABS ( PS24/PS24A) ) 143 

EP=( PS24-PS24A)/PS24 144 

CALL AFQUIR ( QI1) , V24, EP , 0. , 50. ,0. 001, DIR , V24T , IGO ) 145 

V24=V24T 146 

IF ( V24.LT .25. ) V24=25. 147 

GO TO (14,16,11), IGO 148 

16 P24=PS24*EXP( ( PHI24-PHIS24 ) /REX24) 149 

CALL PROCOM ( FAR24.TS24, CS 24, XX 2, XX 3, XX 4, XX 5, XX 6) 150 

AM24*i/24*CS24 151 

17 CALL THERMO ( P24, H24, T24.S24, XXI , 1 , FAR24, 0 ) 152 

WG24*rfFD+WAD 153 

T25=T24 154 

P25=P24 155 

H25=H24 156 

S25=S24 157 

IF (I5ASMX.GT.0i GO TO 21 158 

W0RD=AW0RD2 159 

A2BSAtf=A28 160 

A29SAtf«A29 161 

N0ZD=3 162 

IDNOZ=0 163 

IF (NOZFLT.EQ.2.0R.NOZFLT.EQ.3) N0ZD=1 164 

IF (I3ES.EQ.1.OR.IDBURN.GT.O.OR.NOZ0.EQ.1) IDNOZ-1 165 

IF (I3CD.EQ.1) GO TO 18 166 

CALL SONVRG ( T25, H25 , P25 ,S25, FAR24, WG24, PI , IDNOZ, A28 , P25R.T28, H2 8 , 167 

1P28»S28»TS28,P$28,V28»AM28,I CON) 168 

GO TO (19,19,19,11), ICON 169 

18 CALL CONDIV ( T25, H25 , P25 ,S25 , FAR24, WG24, PI , I DNOZ , A28, A29 ,P25R , T2 8, 170 

1H28,P23,S28,T29,H29,P29,S29,TS28,TS29,PS28,PS29,V28,V29,AM28,AM29, 171 

2 1 CON) 172 

IDSHO:=ICON 173 

GO TO (20,20,20,11), ICON 174 

19 T29=T2 3 175 

H29=H2 8 176 

P29=P2 8 177 

S29=S2 8 178 


85 



o o 


TS29 = T S28 179 

PS29=P S28 180 

V29=V23 181 

AM29*AM28 182 

A29= A2 8 183 

IDSH0:=IC0N+3 184 

20 ERR (5)=(P25R~P25)/P25R 185 

IF (mOZ.EQ.U WRITE 16,22) A28, AM28, A29, AM29 186 

21 CALL FASTBK 187 

RETURN! 188 

189 

190 

22 FORMAT ( 19H0DUCT NOZZLE DESIGN, 5X8H A28 = , El 5, 8, 8H AM23=,E15.8 191 

1 1 8 H A29=, E15*8,8H AM29=,E15.8) 192 

END 193 


$ I BFTC COMIX DECK 

SUBROUTINE COMIX 1 

COMMON / ALL/ 2 

1 WORD , I DES , JDES , KDES , MODE ,INIT ,IDUMP ,IAMTP , 3 

2IGASMX,IDBURN, IAFTBN, IDCD , IMCO , I DSHOC , I MSHOC , NOZFLT, 4 

3ITRYS fLQOPER, NOMAP , NUMMAP , MAPEDG, TOLALL, ARR [ 6) 5 

COMMON /DESIGN/ 6 

1 PCNFG J , PCNCGU , T4GU ,DUMD1 ,DUMD2 , DELFG , DELFN , DELSFC , 7 

2ZFDS , PCNFDS , PRFDS , ETAFDS, WAFDS ,PRFCF » ETAFCF, WAFCF , 8 

3ZCDS , PCNCDS , PRCDS , ETACDS, WACDS ,PR CCF , ETACCF , WACCF , 9 

4T4DS , WF BDS , DTCODS , ETABDS, WA3CDS , DPCODS, DTCOCF , E TABCF , 10 

5TFHPDS , CNHPDS , ETHPDS ,TFHPCF, CNHPCF, ETHPCF, DHHPCF , T2DS , 11 

6TFLPDS,CNLPDS, ETLPDS , TFLPCF, CNLPCF,ETLPCF,DHLPCFfT210S , 12 

7T24DS tWFDDS , DTDUDS , ETADDS , WA23DS t DPDUDS, DTDUCF , ETADCF , 13 

BT7DS , WF ADS , DTAFDS, ETAADS, WG6CDS, DPAFDS, DTAFCF , ETAACF, 14 

9 A55 , A25 , A6 , A7 ,A8 ,A9 ,A28 ,A29 , 15 

$PS55 , AM55 , CVDNOZ , CVMNOZ , A8SAV , A9SAV , A28S AV , A29SAV 16 

COMMON /FRONT/ QZQ ( 80 ) / S IDE/QWQ ( 48) 17 

COMMON / BACK/ 18 

1T55 » P55 , H55 ,S55 ,T25 ,P25 ,H25 ,S25 , 19 

2WFB , WG55 ,FAR55 ,WFD , WG24 ,FAR24 ,P1 ,0UMB , 20 

3T6 ,P6 ,H6 , S6 , T7 ,P7 ,H7 ,S7 , 21 

4T8 ,P8 , H8 ,S8 , T9 ,P9 ,H9 ,S9 , 22 

5 WG6 , WF A , WG7 , FAR7 , ET AA , DPAFT ,V55 ,V25 , 23 

6 PS6 ,V6 , AM6 ,TS7 , PS7 ,V7 ,AM7 ,AM25 , 24 

7TS8 , PS8 ,V8 , AM8 ,TS9 ,PS9 ,V9 ,AM9 , 25 

8VA , FRD « VJD , FGMD ,VJM , FGMM ,FGPD , FGPM , 26 

9FGM , FGP , WFT ,WGT , FART ,FG , FN ,SFC 27 

COMMON /DUMMYS/ DUMMY ( 100) 28 

COMMON / SPOOL 2/ TWOSPL ( 44 ) 29 

EQUIVALENCE ( ERR, DUMMY! 1 1 ) ) 30 

EQUIVALENCE ( ZF, QZQI 68 )) , l PCNF , QZQ { 69 ) ) 31 

DIMENSION ERR ( 9 ) 32 

COMMON/ LOOPPR/KKGO, PR FNEW, PRCNEW 33 

DATA AW0RD/6H COMIX/ 34 

DIMENSION QQC9) 35 

WORD= ArtORD 36 

A J=773 • 26 37 

CAPSF=21 16*2170 38 

G=32. 174049 39 

CALL ^ROCOM ( F AR55 ,T 55, XXl , XX2, XX3, XX4, PHI 55 , XX5) 40 
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CALL 5 R0C0M (FAR24,T25,XX1,XX2,XX3*XX4*PH125?XX5) 41 

IF { IDES « EQ» 0 1 GO TO 12 42 

C *** CALC JL ATE A55 AND A25 WITH PS25*P555 43 

IF { PS 55® EQ* 0« I GO TO 3 44 

TS55 = T5 5MPS55/P55)**0®286 45 

DO 1 1*1*15 46 

CALL PROCOM I FAR55* TS55 * CS55 * AK55* CP55* REX55 * PHI $55 * HS55 1 47 

PHI S=PHI55-REX55*AL3G( P55/PS55 ) 48 

DELPHI =PHIS~PHIS55 49 

IF (A3 SI DELPHI ) ® LE ®0 ® OOOl* PH IS I GO TO 6 50 

1 TS55=TS55*EXP(4®0«DELPHI I 51 

2 CALL ERROR 52 

RETURNS 53 

3 ?S55=0®875*T55 54 

DO 4 1=1*15 55 

CALL PROCOM I FAR55* IS 55* CS55 * AX55* CP 55* REX55 * PHI S55 * HS55 I 56 

V55= AM55*CS55 57 

HSCAL=-S55~V55**2/(2®*G*AJ) 58 

DELHS= HSC AL-HS55 59 

IF I A8S ( DELHS) » LE»0« 00Q5*HSCAL ) GO TO 5 60 

4 TS55=rS55+D£LHS/CP55 61 

GO TO 2 62 

5 PS55 = ?55/EXP« I PHI 55-PHIS55 1 /REX55) 63 

IF ( PS 55#GT# P25* AND* IDES«EQ« !• AND* IGASMX*GT * 01 GO TO 45 64 

6 IF (H55.GT.HS55) GO TO 7 65 

WRITE (8*46) P55*PS55#T55*TS55*H55*HS55 66 

CALL ERROR 67 

7 V55=S3RT( 2® *G*AJ* IH55-HS55 5 ) 68 

RH0=CAPSF*PS55/( AJ*REX55*TS55) 69 

A55=W355/(RHO*V55) 70 

AM55=tf 55/CS55 71 

IF ( 13 ASMX*GT ® 0 ) GO TO 8 72 

WRITE (6*47) A55* AM5 5 73 

GO TO 41 74 

8 PS25=PS55 75 

TS25-T25»fPS25/P25l»*0«286 76 

DO 9 1=1*15 77 

CALL PROCOM ( FAR24*TS25, CS 25 * AK25* CP25* REX25 * PHI S25 *HS25 } 78 

PHI S=PHI25~REX25*ALQG (P25/PS25) 79 

DELPHI =PH I S-PHIS25 80 

IF ( A3S( DELPHI) *L£®0* 000 1*PH IS) GO TO 10 81 

9 TS25=TS25*EXP(4®0*DELPHI ) 82 

GO TO 2 83 

10 IF ( H2 5®GT ® HS25 ) GO TO 11 84 

WRITE (8,48) P25,PS25,T25, TS25,H25,HS25 85 

CALL ERROR 86 

11 V25=$3RT( 2®*G»AJ*( H25-HS25 I ) 87 

RH0=C4PSF*PS25/( A3*REX25*TS25) 88 

A25=W324/(RH0*V25) 89 

AM25 = t/ 25/CS25 90 

WRITE (6*49) A55, AM55 * A 2 5, AM 2 5 91 

GO TO 27 92 

C *** CALCULATE PS55 AND PS25 93 

12 WQA=W355/A55 94 

C1=P55*SQRT(G/(T55*AJ) )*CAPSF 95 

MCON=0 96 

GQ(2)=0® 9? 

QQ ( 3 ) = 0® 98 

AM55 = 0 ® 50 99 

TS55 = 0 e 875*T55 100 

13 DO 14 1=1,15 101 

CALL PROCOM I FAR55, TS55, CS55 « AK55, CP55* REX55 *PHI S55, HS55 ) 102 

V55=AN55*CS55 103 
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HSCAL = -i55-V55**2/!2®»&*AJ) 104 

DELHS=HSCAL“HS55 105 

IF { A3SIDELHS) »LE.0.0005*HSCAL) GO TO 15 106 

14 TS55=TS55+DELHS/CP55 107 

GO TO 2 108 

15 WQAT=:i*SQRT( AK55/REX 55 ) *AM55/ ( 1.+CAK55-1. )*AM55**2/2. )**( ( AK55+1* 109 

1 ) / ( 2 ♦ * ( AK55-1 • ) ) ) 110 

AMX=A^55 111 

IGGGO= 0 112 

16 DIR=WQA/WQAT 113 

EW= ( WQ A-WQAT ) /WQA 114 

CALL AFQUIR { QQ (1) , AMX, EW, 0. , 30. , 0, 0005. DI R, AMXT 1 1 CON ) 115 

GO TO (17*22, 2), ICOM 116 

17 IF < A*UT«LE.i.O) GO TO 20 117 

AMXT=0 • 7 118 

ncon=h:on+i 119 

IF (MCON.LE.l) GO TO 20 120 

IF (MDDE*EQ.3) GO TO 19 121 

PCNFOJMD1 122 

WRITE (8,50) PCNF,AW,P55,PS55,P25,PS25 123 

PCNF = U01*PCNF 124 

DUMD1=PCNF 125 

18 NQMAP=7 125 

RETURN 127 

19 WRITE (8,51) ZF, AMX, P55»P$55,P25,PS25 12B 

ZF-0« 99*ZF 129 

GO TO 18 130 

20 IF (I33G0.EQ.1) GO TO 21 131 

AM55=AMXT 132 

GO TO 13 133 

21 AM2‘5- A MXT 134 

GO TO 23 135 

22 IF ( I3DG0*EQ.l) GO TO 26 136 

PS55=? 55/EXP ((PHI55-PHIS 55)/ RE X55) 137 

IF ( IGASMX^LE.O) GO TO 41 138 

WQA=W324/A25 139 

Cl s P25*SQRT(G/(T25*AJ) )*CAPSF 140 

MCON=0 141 

QQ { 2 ) = 0* 142 

QQ ( 3) O • 143 

AM2 5 = 0 • 25 144 

TS25=0.875*T25 145 

23 DO 24 1*1,15 146 

CALL ? ROCOM ( FAR24,TS25, CS25, AX25.CP25, REX25 ,PHI S25,HS25 ) 147 

V25=AM25*CS25 148 

HSCAL=H25-V25**2/(2.*G*AJ) 149 

DELHS=HSCAL-HS25 150 

IF ( ABS( DELHS ) «LE»0« 0005*HSCAL ) GO TO 25 151 

24 TS25=TS25+DELHS/CP25 152 

GO TO 2 153 

25 WQAT=:i*SQRT( AK25/REX25)*AM25/{ l.+(AK25-l* )*AM25**2/2. ) ** ( ( AK25+1* 154 

1)/(2.*(AK25-1.)>) 155 

AMX= AM25 156 

I GOGO= 1 157 

GO TO 16 158 

26 PS25= 5 25/EXP( ( PHI25~PHX$25 ) /REX25) 159 

27 WG6=W3 24+WG5 5 160 

ERR (5) =(PS25-PS55)/PS25 161 

WF6=WF D+WFB 162 

FAR6=WF6/ (W&6-WF6) 163 

H6=( W324*H25+WG55*H55 )/WG6 164 

CALL MERMO ( 1 . , H6* T 6 , PH 16, AMX, 1 , FAR6, 1 ) 165 

C1=PS55*A55*( 1«*AK55*AM55**2)+PS25*A25*( l.+AK25*AM25**2) 16b 
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TS6=0.333*T6 167 

DO 32 1=1,15 168 

CALL ’ROCOM (FAR6,TS6»CS6, AK6, CP6 , REX6, PHI S6, HS6 ) 169 

C2=WG6*SQRT(AJ*REX6*T6/(AK6*G) ) 170 

C3=C2MCAPSF*C1) 171 

C4= (A<S-l*)/2«-(C3*AK6)**2 172 

C5=1.-2.*AK6*C3 **2 173 

C6=C5**2+4.*C4*C3**2 174 

IF ( C6 ) 28,29,30 175 

28 CALL ERROR 176 

RETURN 177 

29 AM62G s ~C5/( 2* *C4) 178 

GO TO 31 179 

30 AM62GMSQRT(C6)-C5)/(2.*C4) 180 

31 IF (AH62G.LE.0. ) GO TO 28 181 

AM6G=S ORT ( AM62G) 182 

V6=AM6G*CS6 183 

HSCAL=H6-V6**2/(2.*G*AJ) 184 

DELHS= HSC AL-HS6 185 

IF ( A3S(DELHS).LE.0.0005*HSCAL) GO TO 33 186 

32 TS6=TS6+DELHS/CP6 187 

GO TO 28 188 

33 IF C I3ASMX.GT.0) GO TO 34 189 

34 A6G= A2 5+A55 190 

C7=SQRT(l.+( AK6-1. )»AM62G/2. ) 191 

PS6=C2/(CAPSF*A6G*AM6G*C7) 192 

P6=PS5*EXP( (PHI 6-PHI S6)/REX6) 193 

CALL THERMO ( P6, H6, T6, S6 ,XX1 , 1 , F AR6, 0 ) 194 

S6AVE* ( WG24*S25+WG55* $55 ) / WG6 195 

IF (S6.GE.S6AVE) GO TO 35 195 

S6=S6A/E 197 

P6 = EXfM AMX*( PHI6-S6) / 1*986375) 198 

35 IF {I3ASMX.EQ.1) GO TO 43 199 

IF (IOES.EQ.O) GO TO 38 200 

C**« CALCULATES A6 AS A FUNCTION OF INPUT AM6 201 

TS6=TS/(l*0+( { (AK6-1.Q)/2«0)*AM6**2) ) 202 

00 36 J J=1 » 1 5 203 

AK6P= A<6 204 

CALL PROCOM ( FAR6, TS6 , CS6, AK6, CP6, REX6, PHI S6 ,HS6 ) 205 

V6=AMS*CS6 206 

DEL AK6 = AK6P-AK6 207 

IF <A8S(DELAK6).L£.0.0005*AK6) GO TO 37 208 

36 T$6=TS/(1.0+( I ( AK6-1 #0)/ 2* 0)* AM 6**2) ) 209 

GO TO 28 210 

37 PS6=P6/( ( 1.0 + C ( ( AK6-1.0)/2.0)*AM6**2>)**( AK6/ ( AK6-1 . 0 ) ) ) 211 

AM6AB3=AM6 212 

RHG=CAPSF*PS6/( AJ*REX6*TS6> 213 

A6=WGS/(RH0*V6) 214 

WRITE (6,52) A6 215 

GO TO 44 216 

C CALCULATES M6=F ( A60ES IGN ) 217 

38 TS6P=rS/(1.0+( ((AK6-1«0)/2,0)*AM6ABD**2) ) 218 

DO 39 1=1,15 219 

CALL PROCOM ( FAR6, TS6P,CS6, AK6, CP6, REX6, PHI S6,HS6) 220 

PS6P=P$6*(TS6P/TS6)**(AK6/(AK6-1®0) ) 221 

RH06=:APSF*PS6P/( AJ*REX6»TS6P) 222 

V6 = SQRT(2.*G*AJMH6~HS6> > 223 

IF (H6-HS6KLT*0«0) GO TO 42 224 

A6P=W36/(RHQ6*V6) 225 

DEL A6= A6P-A6 226 

V6=WG6/(RH06*A6) 227 

AM6=V6/CS6 228 
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AM62=AM6**2 



229 


IF i ASS {DELA6I «LE»00 

« 002*A65 GO TO 40 


230 

39 

TS6P = T 6/ ( 1 ®0-H C « AK6- 

1©0)/2®0)*AM62) ) 


231 


GO TO 28 



232 

40 

TS6=T$5P 



233 


PS6 = PS SP 



234 


GO TO 44 



235 

41 

T6=T55 



236 


P6=P55 



237 


H6=H55 



233 


S6=S55 



239 


WG6=W355 



240 


PS6=PS55 



241 


V6= V55 



242 


AM6= AM55 



243 


IF C IGASMX*EQ®0$ A6= 

A55 


244 


GO TO 44 



245 

42 

WRITE C 6 1 53 ) H6 f HS6 



246 


GO TO 28 



247 

43 

AM62=M62G 



248 


AM6=AM6G 



249 


A6= A25*A55 



250 

44 

CALL COAFBN 



251 


RETURN 



252 

45 

KKG0=1 



253 


OPRDS= PRFDS*PRCDS 



254 


PRFi\IEW = PRFDS*PS55/P25*1.02 


255 


PRCNEaf*OPRDS/PRFNEW 



256 


CALL EMG8AL 



257 


RETURN 



258 

C 




259 

C 




260 

46 

FORMAT { 22H0SQRT OF 

H55-HS55 NEG » 6E15® 6® 6H$$$$$$) 

261 

47 

FORMAT i 20H0TURB INE 

AREA DESIGN® 6X6H A55=® 

E15® 8 1 8 H AM55 = * E15® 8 ) 

262 

48 

FORMAT i 22H0SQRT OF 

H25-HS25 NEG ® 6E15® 6*6H$$$$$$ ) 

263 

49 

FORMAT C25H0TURBINE/DUCT AREA DES I GM® 7H A55= , E15* 8» 8H AM55=,E1 

264 


1 5® 8 * 8H A25= « EI5« 8 

t 8H AM25=® El 5® 8 ) 


265 

50 

FORMAT U2H0C0MIX PCNF=® F7® 4 ? 4H AM=,F8®6®5H 

P55=$ F9# 5 ® 6H PS55= ? F9* 

266 


15 * 5H 15 25= ® F9® 5® 6H PS 25=, F9» 5* 1 


267 

51 

FORMAT (lOHOCOMIX ZF 

= ? F8 ® 5 1 4H AM= t F8® 6® 5H P55=®F9®5*6H PS55=®F9 s 5® 

268 


15H P25«,F9.5,6H PS25 

=tF9®5?6H$ $$$$$) 


269 

52 

FORMAT { 3X 1 27HAFTERBURNER DESIGN AREA A6 F8 

® 3) 

270 

53 

FORMAT I 3X®18HNEG*HS6 FACTOR H6 F9* 4* 3X* 4HHS6 F9®41 

271 


END 



272 


SIBFTC C0AF3N DECK 

SUBRD JUNE COAFBN 1 

COMMON / ALL/ 2 

1WORD » IDES » JDES ,KDES .MODE »INIT , IDUMP . I AMTP . 3 

2IGASM<» ID BURN. I AFTBN . IDCD , IMCD » IDSHOC, IMSHOC .NOZFLT, A 

3ITRYS .LOOPER, NOMAP , NUMMAP, MAPEDG, TOLALL , ARR ( 6) 5 

COMMON /DESIGN/ 6 

1PCNFGJ. PCNCGU. TAGU ? DUMD1 » DUMD2 . DELFG » DELF N » DELSFC . 7 

2ZFDS « PCNFDS . PRFDS . ETAFDS . WAFDS » PRFCF , ETAFCF , WAFCF , B 

3ZCDS » PCNCDS » PRCDS , ETACDS.WACDS , PRCCF , ETACCF , WACCF , 9 

4T4DS . WFBDS , DTCODS . ETABDS , WA3CDS , DPCODS, DTCOCF , ETABCF , 10 

5TFHPDS»CNHPDS»ETHPDS s TFHPCF,CNHPCF,ETHPCF» DHHPCF.T2DS , 11 

6TFLPDS.CNLPDS.ETLPDS.TFLPCF.CNLPCF.ETLPCF.DHLPCF.T21DS , 12 
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7T24DS 9 WFDDS » DTDUDS 9 ETADDS , WA23DS » DPDUDS » DTDUCF » E TAOCF » 13 

8T7DS 9 WF ADS , DT AFDS 9 ETA ADS » WG6CDS , DPAFDS, DTAFCF , ETAACF 9 U 

9A55 »A25 ,A 6 »A7 ,A8 »A9 ,A28 ,A29 , 15 

SPS55 « AM55 , CVDNOZ » CVMNOZ, A8SAV 9 A9SAV » A28SA V 9 A29S AV 16 

COMMON/ FRONT /QXQ l 80) / S IDE/QYQ l 48 ) 17 

COMMON / BACK/ 18 

1T55 ♦ P55 * H55 ,S55 ,T25 ,P25 ,H25 ,S25 , 19 

2WFB 9 WG55 ,FAR55 ,WFD ,WG24 ,FAR24 ,P1 t DUMB 9 20 

3T6 f P6 ,H6 ,S6 ,T7 ,P7 ,H7 ,S7 f 21 

4T8 • P8 «H8 tS8 ,19 ,P9 ,H9 ,S9 9 22 

5WG6 ♦ WF A 9 WG7 » FAR7 ,ETAA 9 DPAFT ,V55 ,V25 , 23 

6PS6 9V6 9AM6 t TS7 9 PS7 ,V7 ,AM7 ,AM25 9 2 <9 

7TS8 # PS8 »V8 9AM8 9 TS9 ,PS9 ,V9 ,AM9 , 25 

8VA 9 FRO 9 VJD 9 FGMD ,VJM ,FGMM *FGPD ♦ FGPM f 25 

9FGM 9 FGP v WFT 9 WGT 9 FART ,FG 9 FN »SFC 27 

COMMON / DUMMY S/ DUMMY { 100) 28 

COMMON/ S POOL 2/ TWOSPL ( 44) 29 

EQUIVALENCE ( ERR9 DUMMY { 1 1 ) ) 30 

DIMENSION ERR { 9 ) 31 

EQUIVALENCE { P6DSAV, DUMMY! 7 ) ) , ( AM6DSV, DUMMY ( 8) ) , ( ETAASV, DUMMY ( 9 ) ) 9 32 

1(FAR7SV,DUMMY(10) ) 33 

DIMENSION Q ( 9 ) 3* 

DATA A W0RD/6HC0AFBN/ 35 

WORD* AWORD 36 

Q(2)=0. 37 

Q{ 3 ) *D* 38 

AJ=773 • 26 39 

CAPS F* 2116*2 170 40 

G=32. 174049 41 

C*** P6DS AND AM6DS ARE SET FOR GENERALIZATION OF AFTERBURNER 42 

C*** EFFICIENCY MAP GENERALIZATION 43 

IF ( IDES* EQ. I ) P6D5 S P6*14* 696 44 

IF UOES.EQ.l) AM6DS* AM6 <*5 

WF6 = WF B 46 

IF ( I3ASMX.GT.0) WF6*WF6+WFD 47 

WA6-W3 5-WF6 48 

C *** DRY LOSS 49 

WG6C=W36*SQRT(T6)/P6 50 

IF (IOES.EQ.l) WG6CDS=WG6C 51 

DPAFT= OPAFDS* ( WG6C/WG6CDS) 52 

IF { DP AFT • GT* 1* ) DPAFT*1 * 53 

P7=P6* ( 1* -DPAFT ) 5 

A7= A6 55 

FAR6=WF6/WA6 56 

CALL ? ROCQM ( F AR69 T6 1 XXI ,XX2 * XX3* XX4, PHI 69 XX6 ) 57 

WQA=WS6/A7 53 

C1=P7*SQRT(G/(T6*AJ) )*CAPSF 59 

AM7=AM6 50 

TS7=0. 875*T6 61 

1 DO 2 1*1,15 62 

CALL PROCOM ( F AR6, TS 7 , CS7, AK7, CP7, REX7, PHI S7, HS7 ) 63 

V7= AM7 *CS7 64 

HSC AL= H6-V7**2/ ( 2* *G* AJ ) 65 

DELHS* HSCAL-HS7 66 

IF ( ABS ( DELHS ) • LE #0* 0005*HSC AL ) GO TO 3 67 

2 TS7=TS7+DELHS/CP7 63 

GO TO 14 59 

3 WQAT = Cl*SQRTtAK7/REX7)*AM7/i 1 . + l AK7-1 * ) * AM7**2/2 « >**( l AK7 + 1 * ) / l 2 * * 70 

KAK7-I.M) 71 

DIR=W3*/WQAT 72 

EW= ( W3 A-WQAT ) / WQA 73 

CALL AFQUIR ( Q (1) » AM7 f EW , 0* , 40. , * 001 * DI R , AM7T * I GO 5 74 

GO TO (495,14)9! GO 75 
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4 


AM7 = A>UT 76 

IF ( AM7.GE.1.0) AM7*0.9 77 

GO TO 1 78 

5 PS7=P7/EXP( ( PHI 6-PHI S7 ) /REX7 ) 79 

IF (IAFTBN.GT.O) GO TO 7 80 

C **# NON-AFTERBURNING 81 

6 T7=T 6 82 

WFA=0.0 83 

FAR7=F AR6 84 

WG7=W36 85 

IF < IDES. EQ.l. AND. T7DS.NE.O. ) GO TO 7 86 

GO TO 20 87 

C *** AFTERBURNING 83 

7 IF ( IAFTBN.EQ.2) T7-T6+2000. 89 

IF (I3ES.EQ.I) T7=T7DS 90 

IF (T7.LE.T6) GO TO 6 91 

RH065=CAPSF*PS7/(AJ*REX7*TS7 ) 92 

PS65=PS7 93 

V65=V7 94 

Q( 2 > =3. 95 

Q( 3) =3 . 96 

8 IF (T7.GT.4000. ) T7=4000. 97 

HV=( ( I ( ((-.4594317E-19*T7)-.2034116E-15)*T7*.2783643E-11)*T7+.2051 98 

1501E-37) *T7-. 2453116E-03 )*T7-. 9433296E-01 )*T7+.1845537E*05 99 

CALL THERMO ( P7, HA, T7, XX 1, XX2, 1 ,FAR6, 0) 100 

C*»* TO ALTER DESIGN ABET AA MAP FROM GENERAL TO SPECIFIC MAP 101 

IF ( I3ES.NE. 1) GO TO 9 102 

F AR7DS= ( HA-H6 ) / ( HV*ET AADS) 103 

CALL ETAAB ( 0. . 0. ,0. , 0. , ETAADS, ETAASV, P6DS, P6DSAV, AM6DS, AM6DSV, I DE 104 

1S,FAR70S»FAR7SV) 105 

T7=T 6 106 

GO TO 20 107 

9 P6GS= 3 6*14.696 103 

FAR7DS = I HA— H6) / ( HV*ETAADS) 109 

DO 10 11=1,15 110 

CALL ETAAB ( FAR7GS,AM6,P6GS, ETAA, ETAADS , ETAASV , P6DS, P6DSAV , AM6DS , A 111 

1M6DSV, I0ES,FAR7DS,FAR7SV I 112 

FAR7 = ( HA-H6 ) / ( HV*ETAA ) 113 

DELFA7=ABS(FAR7-FAR7GS) 114 

IF (0ELFA7.LE.0.01*FAR7) GO TO 11 115 

10 FAR7GS =FAR7 116 

11 CONTINJE 117 

IF (FAR7.GT.0.) GO TO 12 118 

CALL ERROR 119 

12 WF AX=F AR7*WG6 120 

IF ( IAFTBN.EQ.l) GO TO 15 121 

ERRW=( WFA-WFAX)/WFA 122 

DIR=S3RT(WFA/WFAX> 123 

CALL AFQUIR ( Q( 1 ) , T7 , ERRW, 0. , 30., .0005, DI R, T7T, IGO ) 124 

GO TO (13, 16, 14), IGO 125 

13 T7=T7T 126 

GO TO 8 127 

14 CALL ERROR 128 

15 WF A = WF AX 129 

16 FAR7=( WF6+WFA ) /WA6 130 

WG7=W35+WFA 131 

C *** MOMENT JM LOSS 132 

CALL 5 ROCOM ( FAR7 , T7 , XXI ,XX2, XX3, REX7,PHI 7, H7) 133 

RH07=:APSF*P7/(AJ*REX7*T7) 134 

V7=WG7/(RH07*A7) 135 

Q( 2 ) =3. 136 

Q( 3 ) =3 . 137 

PS7 = PS 55-0. 01 138 
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o o 


17 


RH07=dG7/ (V7*A7) 139 

HS7=H7-V7**2/(2.*G*AJ ) 140 

CALL THERMO ( 1. 0 # HS7 , TS7, PHI S7, XX2 » 1 ♦ FAR7 f 1 ) 141 

IF ( TS 7.GE. 301. ) GO TO 18 142 

CALL THERMO ( i. 0» HS7 , 400. , PH I S7»XX2. 1 , FAR7 ,0) 143 

V7=S9RT{2.*G*AJ*(H7-HS7) I 144 

GO TO 17 145 

18 PS7=RH07*AJ*REX7*T$7/CAPSF 146 

PS7A=*$65+(RH065*V65**2-RH07*V7**2)/(G*CAPSF) 147 

DIR=S9RT( ABS(PS7/PS7A) ) 143 

EP= ( PS 7-PS7A ) /PS7 149 

CALL AFQUIR C Q( 1 ) , V7, EP, 0. , 50. , .001, DIR, V7T , IGQ ) 150 

V7= V7T 151 

IF (V7.LT.100.) V7=100. 152 

GO TO f 17»19 f 14) ,IG3 153 

19 P7=PS7*EXP( (PHI 7-PHI S7J/REX7) 154 

CALL P ROCOM ( FAR7, TS7, CS7, XX2* XX3, XX4, XX5* XX 6 ) 155 

AM7=V7/CS7 155 

20 CALL THERMO ( P7,H7,T7,S7,XX2, l.FAR7,0) 157 

CALL CDMNOZ 158 

RETURN* 159 

160 
161 

END 162 


$1 BFTC FRTOSD DECK 

SUBROJT I NE FRTOSD 
COMMON /ALL /XX ( 28 ) /DES 
COMMON* / FRONT/ 


1T1 

.PI 

.HI 


2T21 

. P21 

. H21 


3T4 

.P4 

,H4 


4T55 

, P55 

. H55 


5CNF 

, PRF 

t ETAF 


6 CNC 

, PRC 

, ET AC 


7CNHP 

7 ET ATHP 

. DHTCHP 


8 CNLP 

, ET ATLP 

. DHTCLP 


9 AM 

, ALTP 

. ETAR 


$TF FHP 

, TFFLP 

, PCBLF 


COMMON 

/ SIDE/ 


1XP1 

» XWAF 

, XW AC 


2XT21 

,XP21 

, XH2 1 


3T24 

,P24 

. H24 


4T28 

,P28 

. H28 


5WAD 

9 WFD 

, WG24 


6TS28 

» PS28 

. V28 


C0MM0'IZBACK/ZZ<72) 



COMMO^/DUMMYS/ DUMMY ( 1 
COMMO>*/SPOOL2/TWOSPL ( 
XP1=P1 


XWAF=d AF 

XWAC=rfAC 

XBLF=BLF 

XBLDU= BLDU 

XH3=H3 

XT21 = T 2 1 

XP2W21 


I GN/YY ( 80) 



SI 

» T2 

»P2 

. H2 

S21 

» T3 

.P3 

. H3 

S4 

» T5 

.P5 

.H5 

S55 

» BLF 

9 BLC 

t BLDU 

WAFC 

tWAF 

, W A3 

. WG4 

WACC 

s WAC 

.ETAB 

.OPCOM 

DHTC 

9 BLHP 

. WG5 

9 FAR5 

DHTF 

9 BLLP 

9 WG55 

•FAR55 

ZF 

9 PCNF 

fZC 

« PCNC 

PCBLC 

9 PCBLDU 

9 PCBL3B 

, PCBLHP 

XBLF 

9 XBLOU 

. XH3 

9 DUMS1 

XS21 

9 T23 

. P23 

9 H23 

S24 

9 T25 

. P25 

t H25 

S28 

9 T29 

t P29 

, H29 

FAR 24 

9 ETAD 

9 3PDUC 

9 BYPASS 

AM28 

9 TS29 

, PS29 

9 V29 

00) 




44) 





1 

2 

3 

*S2 , 4 

.S3 , 5 

* S5 , 5 

.BLOB . 7 

,FAR4 , 8 

.DUMF . 9 

,CS , 10 

, HPEXT , 11 

» WFB , 12 

, PCBLLP 13 

14 

, DUMS2 , 15 

* S23 , 16 

. S25 , 17 

, S29 , 18 

, DUMS3 » 19 

, AM29 20 


21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 
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XH2I=H21 

32 

XS21 = S 21 

33 

CALL IODUCT 

34 

RETURN 

35 

END 

36 


$1 BFTC FASTBC DECK 

SUBROJTINE FASTBK 

COMMON)/ ALL/XXI 28 )/DESIGN/YY( 80) 

COMMON) / FRONT/ 


1 

2 

3 


1T1 

tPI 

9 HI 

9 SI 

9 T 2 

9P2 

fH 2 

,S2 

9 

4 

2T21 

? P21 

9 H 21 

« S21 

9 T 3 

9P3 

9 H3 

9S3 

t 

5 

3T4 

*P4 

» H4 

9 S4 

* T5 

• P5 

9H5 

9S5 

9 

6 

4T55 

t P55 

9 H55 

» S55 

9 BLF 

9 blc 

» BLDU 

9 BLOB 

9 

7 

5CNF 

» PRF 

9 ETAF 

9 WAFC 

9 WAF 

t WA3 

9 WG4 

9 FAR 4 

9 

B 

6 CNC 

9 PRC 

9 ET AC 

9 W ACC 

f WAC 

* ET AB 

9 DPCOM 

,DUMF 

f 

9 

7CNHP 

* ETATHP 

9 DHTCHP 

9 DHTC 

9 BLHP 

9 WG5 

9 FAR5 

,CS 

9 

10 

8 CNLP 

9 £T ATLP 

t DHTCLP 

9 DHT F 

9 BLLP 

9WG55 

9 FAR55 

v HPEXT 

9 

11 

9AM 

t ALTP 

9 ET AR 

9 ZF 

9 PCNF 

9 zc 

9 PCNC 

9 WFB 

» 

12 

STFFHP 

« TFFLP 

9 PCBLF 

9 PCBLC 

t PCBLOU* PCBL3B 

9 PCBLHP 

9 PCBLLP 

13 

COMMON) 

/ SIDE/ 







14 

1XP1 

9 XWAF 

s XWAC 

9 XBL F 

9 XBLOU 

9 XH3 

9 0UMS1 

9 DUMS2 

f 

15 

2 XT 21 

9 XP21 

« XH21 

,XS21 

9T23 

9P23 

9H23 

9 S23 

9 

15 

3T24 

» P24 

» H24 

9 S24 

9 T25 

9 P25 

9 H25 

9S25 

9 

17 

4T28 

tP28 

t H28 

9 S28 

, T29 

f P29 

9 H29 

9 S2 9 

9 

18 

5WAD 

? WFD 

s WG24 

9 FAR24 

9 ETAD 

9 DPDUC 

9 BYPASS 

9 DUM53 

9 

19 

6TS28 

» PS28 

» V28 

9 AM2 8 

9TS29 

9 PS29 

» V29 

9 AM29 


20 

COMMON) 

/ BACK/ 







21 

1XT55 

9 XP55 

9 XH55 

9 XS55 

,XT25 

9XP25 

f XH25 

f XS25 

9 

22 

2XWFB 

9 XWG55 

» XFAR55 

t XWFD 

9 XWG24 

9 XFAR24 

9 XXPI 

t DUMB 

9 

23 

3T6 

» P 6 

• H 6 

9 S 6 

* T7 

fP7 

» H7 

9 S7 

9 

24 

4T8 

fP 8 

t H 6 

t S 8 

9 T9 

9 P9 

9 H9 

• S9 

9 

25 

5WG6 

t WF A 

9 WG7 

9 FAR7 

t ETAA 

9 DPAFT 

9 V55 

» V25 

9 

26 

6 PS 6 

9 V 6 

9 AM 6 

9 TS7 

9PS7 

fV7 

9 AM7 

9 AM25 

9 

27 

7TS8 

* PS 8 

9 V 8 

f AM 8 

9 TS9 

f PS9 

» V9 

9 AM9 

9 

28 

8 VA 

9 FRD 

9 V JD 

9 FGMD 

t VJM 

9 FGMM 

9 FGPD 

9 FGPM 

9 

29 

9FGM 

t FGP 

9 WFT 

9 WGT 

9 FART 

? FG 

*fn 

9 SFC 


30 


COMMON) /DUMMYS/ DUMMY! 100) 

C0MMQNJ/SP00L2/TW0SPL (44) 

XT55-F55 

XP55~P55 

XH5 5=H 55 

XS55-5 55 

XT25 = T 25 

XP25=P25 

XH25=H25 

XS25 = S 25 

XWFB=rfFB 

XWG55=rfG55 

XF AR55 =FAR55 

XWFD=MFD 

XWG24= WG24 

XFAR24=FAR24 

XXP1=P1 

call :dmix 

RETURN) 

END 


31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
4 B 

49 

50 
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CM CO 


SIBFTC C0MN3Z DECK 


COMMON / ALL/ 



2 

1WORD * IDES sJDES 

$ KDES 9 MODE 

• INIT 9 1 DUMP f IAMTP 9 

3 

2IGASMK? I DBURN, I AFTBN 

9 I DCD 9 IMCD 

9 IDSHDC 9 IMSHQC 9 NOZFLT 9 

4 

3ITRYS • LODPERt MQMAP 

9 NUMMAP, MAPEDG 

9 TOLALL 9 ARR ( 6 ) 

5 

COMMON /DESIGN/ 



6 

1 PCNFGJ , PCNCGU® T 4GU 

9 DUMDl t DUMD2 

f OELFG 9 DELFN 9 DELSFC 9 

7 

2ZFDS 9 PCNFDS, PRFDS 

9 ETAFDSt WAFOS 

tPRFCF 9 ETAFCF 9 WAFCF 9 

B 

3ZCDS 9 PCNCDS* PRCDS 

« ETACDS, WACBS 

9 PRCCF 9 ETACCF* W4CCF 9 

9 

4T4DS ? WFBDS « DTCODS 

9 ETABOSt WA3CDS 

9 OPCODS 9 DTCQCF t ETA 8 CF 9 

10 

5TFHPDS f CNHPDSt ETHPDS 

9 TFHPCF® CNHPCF 

9 ETHPCFs DHHPCF 9 T2DS 9 

li 

6 TFLPDS t CNLPDSt ETLPDS 

9 TFLPCFf CNLPCF 

t ETLPCFf OHLPCF 9 T21DS 9 

12 

7T24DS 9 WFDDS $ DTDUDS 

9 ETADDSt WA23DS 

t DP DUDS 9 DTDUCF* ETADCFf 

13 

8T7DS t WF ADS y DT AFDS 

9 ETA ADS t WG 6 CDS 

9 DPAFDS 9 DTAFCF 9 ETAACF 9 

14 

9A55 . A25 V A 6 

9 AT 9 A 8 

t A9 *A28 f A29 , 

15 

$PS55 $ AM 5 5 9 CVDNOZ 

t CVMNOZ 9 A 8 SAV 

9 A9SAV 9 A28SAVf A29SAV 

16 

COMMON /F RON T/QXQ! 80) /SIDE/QYQI 48 ) 


17 

COMMON / BACK/ 



18 

1 T55 f P55 9 H55 

9 S55 *T25 

9 P25 9H25 9 S25 9 

19 

2WFB 9 WG55 ,FAR55 

? WFD 9 WG24 

9 FAR24 ,P1 9 DUMB 9 

20 

3T6 9 P 6 ,H 6 

*S6 ? T7 

t P7 9 H7 9S7 9 

21 

4T8 9 P8 9 H8 

,S8 ,T9 

»P9 f H9 »S9 9 

22 

5WG6 f WFA 9 WG7 

f FAR7 9 ETAA 

9 DPAFT 9 V55 9 V25 , 

23 

6PS6 t V6 9 AM6 

9 TS7 9 PS7 

9 V7 .AM7 t AM25 9 

24 

7TS8 *PS8 *V8 

? AM 8 9 TS9 

9 PS9 9 V 9 *AM9 9 

25 

8 VA 9 FRO 9 VJD 

9 FGMD 9 VJM 

t FGMM 9 FGPD t FGPM 9 

26 

9FGM t FGP 9 WFT 

9 WGT 9 FART 

9 FG 9 FN 9 SFC 

27 

COMMON/ DUMMYS/ DUMMY C 100) 


28 


COMMON /SPOOL 2/ TWOSPL ( 44) 

EQUIVALENCE C ERR* DUMMY 111)) 

DIMENSION ERR( 9 ) 

DATA A W0RD/6HMNQZZL/ 

WORD=4 WORD 
A8SAV=A8 
A9S AV- A9 
NOZM-D 
I MNOZ- 0 

IF (NOZFLT*EQ*1*OR<,NOZFLT*EQ®3) NOZM=l 
IF { IDES® EQ® l»OR® I AFT BN® GT ® 0«0R»N0ZM« EQ« IS 
IF ( IMCD®EQ®1) GO TO 1 

CALL SONVRG ( T7* H7 f P7 » S7* F ART* WG7* PI , l MNOZ 
1PS8*V8* AM8 f ICON) 

GO TO I3t 3 f 3,2> » ICON 

CALL CONDIV {T7»H7fP7«S7tFAR7«WG7*PltIMN0Z 
19,H9 t P9»S9» TS8 f TS9 9 PS8 f PS9 f V8 ? V9»AM8t AM9«I 

imsho:=icon 

GO TO (4,494,2) 9 ICON 

CALL ERROR 

T 9 - T 8 

H9=H8 

P9=P8 

S9=S8 

TS9 = TS 8 

PS9=PS 8 

V9= V8 

AM9=AM8 

A9 = A8 

I MSHOC « I CON+3 
ERR(6) =(P7R-P7)/P7R 

IF ( IMMOZ.EQ.l) WRITE (6*5) A8t AM8? A9, AM9 
RETURN 


I MNOZ=l 

» A8*P7R*T8*H8* P 89 S 89 TSB* 


,A8.A9*P7RtT8 f H8 ? P8 9 S8 f T 

CON) 


29 

30 

31 

32 

33 

34 

35 

36 

37 
33 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
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ooin 


FORMAT U4H0N0ZZLE DESIGN, 10X8H 
1 A9=,E15.8»8H AM9=,E15.8) 

END 


A8®, E15* 8 , 8H AM8= , E15. 8 , 8H 


62 

63 

64 

65 

66 


SIBFTC ERR(R DECK 


COMMON 

/ ALL/ 



2 

1 WORD 

, IDES , JDES , KDES 

* MODE 

9 INIT , I DUMP 9 I AMTP 9 

3 

2IGASMK 

, IDBURNf IAFTBN , IDCD 

, IMCO 

flDSHOC, IMSHOCfNOZFLT, 

4 

31 T'RYS 

, LOOPER* NOMAP « NUMMAP 

» MAPEDG 

, TOLALL, ARR ( 6 ) 

5 

COMMOM 

/DESIGN/ 



6 

1PCNFGJ 

, PCNCGUt T4GU • DUMD1 

• DUM02 

9 DELFG • DELFN 9 DELSFC, 

7 

2ZFDS 

tPCNFDSfPRFDS * ETAFDS 

» WAFDS 

9 PRFCF 9 ETAFCF , WAFCF 9 

3 

3ZCDS 

, PCNCDS , PRCDS ,ETACDS 

t MACOS 

, PRCCF , ETACCF, WACCF » 

9 

4T4DS 

, WFBDS , DTCODS, ETABDS 

> WA3CDS 

9 DPCODS 9 DTCOCF 9 ETABCF 9 

10 

5TFHPDS 

* CNHPDS* ETHPDS* TFHPCF 

.CNHPCF 

9ETHPCF9DHHPCF,T2DS 9 

11 

6TFLPDS 

t CNLPDS, ETLPDS , TFLPCF 

t CNLPCF 

9 ETLPCF , DHLPCF 9 T21DS , 

12 

TT24DS 

, WFDDS # DTDUDS * ET ADDS 

* WA23DS 

9 DPDUDS, DTDUCF 9 ETADCF 9 

13 

8T7DS 

v WFADS , DTAFDSt ETA ADS 

t WG6CDS 

, DP AFDS,DTAFCF,ETAACF9 

14 

9A55 

, A25 ,A6 * A7 

t A8 

* A9 9 A28 9 A29 , 

15 

SPS55 

v AM55 t CVDNOZ , CVMNOZ 

9 A8SA V 

9 A9SA V , A28SAV , A29SAV 

16 

COMMOM 

/ FRONT/ 



17 

1T1 

,P1 * HI ,S1 

» T2 

,P2 ,H2 ,S2 , 

18 

2T21 

, P21 # H21 tS21 

* T3 

tP3 ,H3 « S3 , 

19 

3T4 

t P4 9 H4 ,S4 

t T5 

9 P5 9 H5 9 S5 

20 

4T55 

, P55 9 H55 , S55 

9 BLF 

9 BLC » 8LDU 9 BLOB f 

21 

5CNF 

, PRF ,ETAF , WAFC 

9 WAF 

9 WA3 9 WG4 9 F AR4 , 

22 

6CNC 

• PRC 9 ETAC , WACC 

9 WAC 

9 ETAS 9 DPCOM 9 DUMF , 

23 

7CNHP 

, ET ATHP, DHTCHP , DHTC 

9 BLHP 

9 WG5 9 F AR5 ,CS 

24 

8CNLP 

,ETATLP,DHTCLP,DHTF 

9 BLLP 

, WG55 .FAR55 ,HPEXT , 

25 

9AM 

9 ALTP ,ETAR ,ZF 

9 PCNF 

,ZC 9 PCNC 9 WFB * 

26 

$TFFHP 

v TFFLP tPCBLF ,PCBLC 

9 PCBLDU 

•PCBLOB.PCBLHPtPCBLLP 

27 

COMMOM 

/ SIDE/ 



23 

1XP1 

9 XWAF , X WAC , XBLF 

9 XBLDU 

9 XH3 9 DUMS1 9 DUMS2 , 

29 

2XT21 

, XP21 , XH21 , XS2 1 

,T23 

9 P23 9 H23 9 S23 9 

30 

3T24 

9 P24 »H24 , S24 

9 T25 

9 P25 9 H25 9 S25 , 

31 

4T28 

•P28 , H28 , S28 

# T29 

9 P29 9 H29 9 S29 , 

32 

5WA0 

, WFD 9 WG24 , FAR24 

9 ETAD 

9 DPDUC 9 BYPASS, DUMS3 9 

33 

6TS28 

, PS28 9 V28 9 AM28 

t TS29 

9 PS29 9 V29 , AM29 

34 

COMMON 

/ BACK/ 



35 

1XT55 

9XP55 , XH55 , XS55 

,XT25 

9 XP25 , XH25 , XS25 , 

36 

2XWFB 

# XWG55 f XFAR55 , XWFD 

9 XWG24 

9 XF AR24,XXP 1 , DUMB » 

37 

3T6 

,P 6 9 H 6 ,S 6 

* T7 

9 P7 9 H7 9 S7 

38 

4T8 

, P8 9 H8 9 S8 

,T9 

? P9 9 H9 » S9 » 

39 

5WG6 

9 WFA , WG7 , FAR 7 

9 ETA4 

9 DP AFT , V55 , V25 9 

40 

6PS6 

,V6 9 AM6 , TS7 

9 PS7 

, V7 , AM7 , AM25 , 

41 

7TS8 

9 PS 8 ,V 8 9 AM 8 

9 TS9 

9 PS9 9 V9 »AM9 9 

42 

8VA 

9 FRD 9 VJD 9 FGMD 

, VJM 

f FGMM 9 FGPD ,FGPM 9 

43 

9FGM 

9 FGP 9 WFT 9 WGT 

, FART 

9 FG , FN 9 SFC 

44 

COMMON /DUMMYS/ DUMMY ( 100) 



45 

C0MM0N/SP00L2/T22,P22tH22.S22,T50, 

P509H509S50,WA229Zl9p:MIfCNI,PRI 

46 


47 

48 , 

49 

50 

51 
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own 


DIMENSION TRASHI (80) » TRASH2I 80 ) , TRASH3( 48) , TRASH4 ( 72 ) 52 

DIMENSION TRASH5 ( 44) » TRASH6I 48 ) 53 

EQUIVALENCE (TRASH5»T22) »( TRASH6, DUMMY! 22 ) ) 5'+ 

EQUIVALENCE ( TRASH1, PCNFGU ) , ( TRASH2, T1 ) , ( TR ASH3.XP1 ) , ( TR ASH4, XT5 5 > 55 

DATA AWORD/6HCOMMON/ 56 

ERRER* . TRUE* 57 

WRITE (6,2) WORD 58 

WORD=AWORD 59 

WRITE 16,3) WORD, ZF,PCNF,ZI,PCNI,ZC,PCNC,T4, MODE 63 

WRITE (6, A) 61 

WRITE C 6, 5 ) (TRASHll I),I=1,80) 62 

WRITE 16,6) 63 

WRITE 16,5) (TRASH2I I >,1=1,80) 64 

WRITE (6, A) 65 

WRITE 16,5) ( TRASH3I I)»I=1,48) 66 

WRITE (6, A) 67 

WRITE (6,5) I TRASHAI I 1,1=1,72) 68 

WRITE (6, A) 69 

WRITE C 6, 5 ) <TRASH5(I>, 1=1,44) 70 

WRITE 16, A) 71 

WRITE (6,5) (TRASH6I I ),I=1»48) 72 

WRITE (6,4) 73 

WRITE (6,7) LOOPER 74 

IF (IDUMP.EQ.O) GO TO 1 75 

WRITE (6,6) 76 

CALL SVG (2) 77 

1 CALL ENGBAL 78 

RETURN 79 

C 80 

C 81 

2 FORMAT (28H0AN ERROR HAS BEEN FOUND IN ,A6) 82 

3 FORMAT (1H0,A6,9X,7E15.6,I4) 83 

A FORMAT (2H0 ) 84 

5 FORMAT (1H ,8E15.6) 85 

6 FORMAT (1H1) 86 

7 FORMAT (25H0FAILED TO CONVERGE AFTER, 14, 6H LOOPS) 87 

END 88 


SIBFTC SYGS DECK 

SUBROUTINE SYG ( ICON) 1 

DIMENSION WORD! 132 ) 2 

DATA ONEDOL/6HS / 3 

GO TO (1,2), ICON A 

1 END FILE 8 5 

REWIND 8 6 

RETURN 7 

C TERMINATE THE FILE 8 

2 WRITE (8,10) 9 

END FILE 8 10 

REWIND 8 11 

READ RECORD 12 

READ (8,11) (WORD(I), 1=1,132) 13 

CHECK FOR 12 LEADING DOLLAR SIGNS 14 

DO A 1*1,12 15 

IF (WDRD( I J-ONEDOL) 5,4,5 16 

A CONTINJE 17 

RETURN 18 

C CHECK FOR 6 TRAILING DOLLAR SIGNS 19 
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5 

DO 8 1=1,132 

20 


1 = 1 

21 


IF i WORD! I )~ONEDOL) 8,6,8 

22 

6 

K= 1 + 5 

23 


DO 7 J = I , K 

24 


IF (WORD! J)-ONEDOL) 8,7,8 

25 

7 

CONTINUE 

26 


GO TO 9 

27 

8 

CONTINUE '' 

28 


WRITE 16,12) 

29 


RETURN 

30 

C 

PRINT LIME 

31 

9 

1 = 1-1 

32 


WRITE (6, 111 ( WORD! M ) , M= 1, I ) 

33 


GO TO 3 

34 

C 


35 

C 


36 

10 

FORMAT { 1 2H$$$$$$$$$$$$ ) 

3? 

11 

FORMAT U32A1) 

38 

12 

FORMAT ( 1H0, 12HERR0R IN SYG) 

39 


END 

40 


SIBFTC PERFOR DECK 





SU8R0JT INE PERF 




1 

COMMON / ALL/ 




2 

1W0RD * IDES , JDES 

t KDE S , MODE 

, IN IT 9 I DUMP 

, I AMTP 9 

3 

2 1 GASMX « IDBURN, IAFTBN 

9 IDCD , IMCD 

9 IDSHOC 1 1 MSHOC 

, NQZFLT s 

4 

3ITRYS , LOOPER, NOMAP 

, NUMMAP , MAPEDG 

,T0LALL*ARR(6t 


5 

COMMON /DESIGN/ 




5 

1 PCMFGJ, PCNCGU,T4GU 

, DUMD1 $ DUMD2 

9 DELFS , DELFN 

9 DELSFC 9 

7 

2ZFDS , PCNFDS, PRFDS 

9 ETAFDS, WAFDS 

, PRFCF tETAFCF 

, WAFCF , 

B 

3ZCDS » PCNCDS* PRCDS 

, ETACDS , WACDS 

t PRCCF , ETACCF 

9 WACCF , 

9 

4T4DS » WFBDS ,DTCODS 

*ETABDS*WA3CDS 

,DPC ODS^OTCOCF 

9 ETABCF f 

10 

5TFHPDS , CNHPDS , ETHPDS 

9 TFHPCF, CNHPCF 

*ETHPCF»DHHPCF 

» T2DS , 

11 

6TFLPDS,CMLPDS,ETLPDS 

9 TFLPCF, CNLPCF 

, ETLPCF, DHLPCF 

, T21DS , 

12 

7T24DS , WFDDS ? DTDUDS 

9 ETADDS , WA23DS 

,DPDUDS 9 DTDUCF 

, ETADCF f 

13 

8T7DS , WF ADS , DT AFQS 

9 ETAADSf WG 6 CDS 

9 DPAFDS, 3T AFCF 

, ETAACF , 

14 

9A55 , A25 , A6 

, A7 ,A 8 

, A9 , A28 

, A29 

15 

$PS55 , AM55 , CVDNOZ 

9 CVMNOZ, A 8 SAV 

9 A 9SA V , A28SAV 

, A29SAV 

16 

COMMON / FRONT/ 




17 

1T1 *P1 « HI 

*S1 * T2 

,P2 , H2 

,S2 

18 

2T21 , P21 , H21 

9 S2I , T3 

,P3 9 H3 

, S3 

19 

3T4 ,P4 ,H4 

*S4 , T5 

9 P5 9 H5 

9 S5 

20 

4T55 ,P55 ,H55 

,S 55 t BLF 

, BLC t BLDU 

, BLOB 9 

21 

5CNF , PRF , ET AF 

9 WAFC 9 WAF 

, WA3 9 WG4 

, FAR4 , 

22 

6CNC , PRC 9 ET AC 

9 W ACC , WAC 

9 ETAB 9 DPCOM 

tOUMF 9 

23 

7CNHP ,ETATHP90HTCHP 

9 DHT C , BLHP 

, WG5 9 FAR5 

t CS 

24 

8CNLP 9 ET ATLP, DHTCLP 

9 DHTF 9 BLLP 

9 WG55 ,FAR55 

9 HPEXT , 

25 

9AM 9 ALTP f ET AR 

f ZF , PCNF 

»ZC 9 PCNC 

9 WFB f 

26 

$T FFHP , TFFLP *PCBLF 

, PCBLC , PCBLDU 

t PCBLOB 9 PCBLHP 

,PCBLLP 

2? 

COMMON / SIDE/ 




28 

1XP1 9 XW AF , XWAC 

t XBLF 9 XBLDU 

9 XH3 , DUMSi 

9 DUMS2 , 

29 

2XT21 , XP21 $ XH21 

, XS21 , T23 

t P23 , H23 

, S23 , 

30 

3T24 , P2 4 # H24 

t S24 , T25 

9 P25 9 H25 

t S25 , 

31 

4T28 , P28 , H28 

t S28 , T29 

, P29 , H29 

t S29 , 

32 

5 WAD , WFD , WG24 

9 FAR24 9 ETAD 

9 DPDUC 9 BYPASS 

, DUMS3 , 

33 

6TS28 , PS28 ,V28 

9 AM 2 8 , TS29 

9 PS29 , V29 

, AM29 

34 

COMMON / BACK/ 




35 
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1XT55 t XP55 » XH55 ,XS55 ,XT25 ,XP25 f XH25 ,XS25 , 36 

2XWFB » XWG55 ,XFAR55,XWFD ,XWG24 ,XFAR24,XXP1 , DUMB , 37 

3T6 ,P6 ,H6 , S6 ,T7 »P7 »H7 ,S7 » 38 

4T8 ,P8 ,H8 * S8 * T9 ,P9 ,H9 ,S9 , 39 

5WG6 t WFA ,WG7 ,FAR7 ,ETAA , DPAFT »V55 ,V25 » 40 

6PS6 » V6 * AM6 » TS7 ,PS7 » V 7 * AM7 »AM25 , 41 

7TS8 » PS8 » V8 ,AM8 , TS9 ,PS9 , V9 ,AM9 » 42 

8VA , FRD » VJD * FGMD ,VJM , FGMM » FGPD ,FGPM , 43 

9FGM ,FGP , WFT , WGT , FART »FG ,FN ,SFC 44 

COMMOM/DUMMYS/ DUMMY! 21 ) , WA32 , DPWGDS, DPWI NG, WA32DS, A38 , AM38, V3 8, 45 

1T38,H33,P38,TS38,PS38,T39,H39,P39,TS39,V39,AM39,A39,BPRINT,WG37, 45 

2CVDWNS*FGMWNG»FGPWNG» FNWING»FNMAIN,FW0VFN»PS39»DIMMY!51) 47 

CDMMDN/SP00L2/T22,P22»H22,S22,T50,P50,H50,S50,WA22,ZI,PCNI ,CNI»PRI 48 

1,ETAI, WACI,TFFIP,CNIP,ETATIP,DHTCIP,DMTI,BLIP,PCBLIP,PCNIGU,ZIDS, 49 

2PCNIDS,PRIDS,ETAIDS,WAIDS,PRICF,ETAICF,WAICF,TFIPDS,CNIPDS,ETIPDS, 50 

3TFIPCF,CNIPCF,ETAPCF,DHIPCF,WAICDS,WAI,PCBLI ,BLI ,T22DS,WA21 51 

DIMENSION ERR! 9) 52 

EQUIVALENCE l AFTFAN, DUMMY! 58 )),! DUMSPL , DUMMY l 59 ) ) 53 

LOGICAL DUMSPL 54 

LOGICAL AFTFAN 55 

EQUIVALENCE 1 ERR, DUMMY! 1 1 ) ) , !FDES, DUMMY! 60) ) , 1 PCBL I D, DUMMY ( 61 ) ) 56 

1 , l VJWI MG, DUMMY ( 77 ) ) 57 

EQUIVALENCE ! FFOVFN, DUMMY ( 54) ) , ! FCOVFN, DUMMY ( 55 )) , 5B 

1 ! FMN3FN, DUMMY 1 56) ) , ! FNDVFD, DUMMY! 57) ) 59 

DATA AW0RD/6H PERF/ 60 

WORD*AWORD 6 1 

G=32. 174049. 62 

CAPSF=2116.2170 63 

WFT=WFB+WFD+WFA 64 

WAT=WAF-BLOB 65 

IF JAFTFAN) WAT=WAT+WAI 66 

WGT=WAT+WFT 67 

FART*WFT/WAT 6B 

VA= AM*CS 69 

FRD=VA*WAF/G 70 

VJM=CV MNDZ*V9 71 

FGMM=/JM*WG7/G 72 

FGPM=C APSF* I PS9-P1 ) * A9 73 

IF l I3ASMX.GT.0) GO TO 1 74 

VJD=CV DN0Z*V29 75 

FGMD=V JD*WG24/G 76 

FGPD-C APSF*!PS29-P1)*A29 77 

1 VJWI N3=0, 78 

FGMWN3=0. 79 

FGPWNS a O« 80 

FGW I NS*0. 81 

FNWIN3=0, 82 

IF IPCBLID.EQ.O. ) GO TO 2 83 

VJWI N3=CVDWNG»V39 84 

FGMWN3=VJWING*WG37/G 85 

FGPWN3 a CAPSF* ( PS39-P 1 )*A39 85 

FGWIN3=FGMWNG+FGPWNG 87 

FNWI N3=FGWING-VA*WA32/G 88 

2 FGM=F3MM+FGMD+FGMWNG 89 

FGP=F3 PM+FGPD+FGPWNG 90 

FNMAIM=(FGMM+FGMD+FGPM+FGPD)-VA*!WAF-WA32)/G 91 

FG=FGM*-FGP 92 

FN=FG-FRD 93 

SFC=3500,*WFT/FN 94 

FG=DELFG*FG 95 

FN=DEL FN*FN 95 

SFC=DELSFC*SFC 97 

FFAN=F3MD+FGPD-VA*WAD/G 98 


99 



FCORE=FNMAIfM-FFAN 99 

FFOVFM=FFA N/FN 109 

FCOVFN=FCORE/FN 101 

FWOVFN=FNWING/FN 102 

FMNOFM=FNMAIN/FN 103 

IF (IOES.EO.l) FDES^FN 10<* 

FNOVFD=FN/FDES 105 

IF ( .N3T.DUMSPL) GD TO 3 105 

PCMI-l.O 107 

CNI=0. 108 

3 CALL 3JTPUT 109 

CALL ERROR 110 

RETURN 111 

END 112 


$1 BFTC PUTOUT DECK 

SUBROJTINE OUTPUT 1 

COMMON / ALL/ 2 

1W0RD , IDES 9 JDES » KDES t MODE ,INIT f IDUMP « I AMTP * 3 

2 IGASMK ♦ IDBURNt I AFTBM » IDCD » IMCD , I DSHOC , I MSHQC , NOZFLT, 4 

3ITRYS j LOOPER , NOMAP , NUMMAP, MAPEDG, TOL ALL » ARR ( 6 ) 5 

COMMON /DESIGN/ 5 

1PCNFG J 9 PCNCGU* T 4GU ,DUMD1 ,DUMD2 *OELFG 9 DELFN » DELSFC* 7 

2ZFDS tPCNFDS, PRFDS , ETAFDS* WAFDS »PRFCF f ETAFCF ? WAFCF , 8 

3ZCDS 9 PCNCDS t PRCDS , ETACDS, WACDS ,PRCCF , ETACCF » WACCF , 9 

4T4,DS tWFBDS f DTCODS 9 ETABDS* WABCDSt DPCQDSt OTCOCF , ETABCF , 10 
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8VA t FRD tVJD , FGMD f VJM ,FGMM , FGPD , FGPM * 43 

9FGM t FGP 5 WFT , WGT , FART v FG ,FN ,SFC 44 

COMMONS /DUMMYS / DUMMY ( 21 ), WA32, DP WGDS, DPW1NG, WA32DS, 438 v AM38, V38, 45 

1T38»H3B,P38,TS38,PS38,T39, H39, P39, TS39, V39, AM39, A39, BP R I NT, WG37, 45 

2CVDWN3, FGMWNG,FGPWNG,FNWING,FNMAIN, F WOVFN, D IMMY ( 52 ) 47 

C0MM0NJ/SP00L2/T22,P22,H22»S22,T50,P50,H50»S50,WA22,ZI ,PCNI,CNI,PRl 48 

1,ETAI, WACI,TFFIP, CNI P , ETAT IP , DHTCI P , DHTI , BL I P , PCBL I P , PCN I GU, Z I DS , 49 

2PCNIDS,PRIDS,ETAlDS,WAIDSfPRICF,ETAlCF,WAICF,TFIPDS*CNIPD$,ETIPDS« 50 

3TFIPC=,CNIPCF,ETAPCP,DHIPCF»WAICDS, WAI f PCBLI,BLI ,T22DS,WA21 51 

EQUIVALENCE (T4PBL, DUMMY (2) ) , ( T 41, DUMMY ( 3 ) ) 52 

DIMENSION W(5 f 4) , ANSI ( 80 ) , ANS2 ( 80 ) , ANS3 ( 48 ) , ANS4I72) 53 

EQUIVALENCE ( ANSI ,PCNFGU ), f ANS2, T1 ) , ( ANS3, XP1 ) ,(ANS4,XT55> 54 

EQUIVALENCE (ANS5,T22) 55 

DIMENSION ANS5 ( 44 ) 55 

DIMENSION ANS6C48) 57 

EQUIVALENCE (ANS6,WA32> 58 

EQUIVALENCE (FXFN2M, DUMMY ( 50 ) ) , { FXM2CP , DUMMY ( 51 ) ) , 59 

1 ( AFTFAN, DUMMY( 58 ) ) , ( DUMSPL, DUMMY ( 59) ) 6 0 

EQUIVALENCE ( PCBLID, DUMMY! 61 ) ) 61 

LOGICAL FXFN2M, FXM2CP , AFTFAN , DUMSPL 62 

DATA 4 WORDl , AW0RD2/6H0UTPUT * 6HCDMM0M/ 63 

DATA ( W(l, I),I=1,4)/6HSUBS0N,6HIC C-D*6H N0ZZL,6HE / 64 

DATA C W(2,I),I=1,4)/6HSH0CK ,6HINSIDE,6H C-D N,6H0ZZLE / 65 

DATA ! W(3,I),I = 1,4)/6HSH0CK ,6H3UTSID,6HE C-D ,6HN0ZZLE/ 66 

DATA ( W(4,I),I = 1,4)/6H$UB$0N,6HIC C3N,6HVERG. , 6HNDZZLE/ 67 

DATA (W(5,I),I=1,4)/6HS0NIC , 6HC0NVER, 6HSENT N,6H0ZZLE / 58 

W0RD=AW0RD1 69 

IF ( IDBURN.GT.O) GO TO 2 70 

IF ( IAFTBN.GT.O) GO TO 1 71 

WRITE (6,7} WORD, AM, ALTP,T4, ETAR 72 

GO TO 3 73 

1 WRITE (6,8) WORD, AM, ALTP,T4,T7, ETAR 74 

GO TO 3 75 

2 WRITE (6,9) WORD, AM, ALTP,T4,T24, ETAR 76 

3 IF (FXFN2M) WRITE (6,17) 77 

IF (FXM2CP) WRITE (6,18) 78 

IF ( • \| 3T* FXFN2M. AND. (*N0T.FXM2CP).AND. ( .NOT. DUMSPL) ) WRITE (6,19) 79 

IF ( DUMSPL ) WRITE (6,23) 80 

IF (PCBLID.EG.O.) WRITE (6,20) 81 

IF (PCBLID.EQ.O.. AND* AFT FAN ) WRITE (6,21) 82 

IF (PCBLID. NE.O.. AND, AFTFAN) WRITE (6,22) 83 

CALL CDNOUT (2) 84 

WRITE (6,10) (W( IMSHOC,! >, 1=1 ,4) , FG, FN, SFC 85 

IF ( ISASMX.GT.O) GO TO 4 86 

WRITE (6,11) (W( IDSHOC, I ), 1=1, 4) 87 

4 WRITE (6,12) LOOPER 88 

IF ( IDES.NE.il GO TO 5 89 

WORD = A W0RD2 90 

WRITE (6,13) WORD, ZF, PCNF, ZI ,PCNI,ZC,PCNC, T4, MODE 91 

WRITE (6,14) 92 

WRITE (6,15) (ANSl(I)f 1=1,80) 93 

WRITE (6,14) 94 

WRITE (6,15) (AN$2(I ), 1=1,80) 95 

WRITE (6,14) 96 

WRITE (6,15) IANS3U) ,1 = 1,48) 97 

WRITE (6,14) 98 

WRITE (6,15) (ANS4II) , 1=1,72) 99 

WRITE (6,14) 100 

WRITE (6,15) (ANS5II 1,1=1,44) 101 

WRITE (6,14) 102 

WRITE (6,15) !ANS6(I ), 1=1,48) 103 
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WRITE 

(6,16) 


104 


IF < I3ES®EQ»1) GO TO 6 


105 

5 

CONTINUE 


105 


A8=A8S AV 


107 


A9~ A9S AV 


108 


A28= A23S AV 


109 


A29=A2 9SAV 


110 


IF ( I3UMP«NE«2) GO TO 6 


111 


WRITE 

(6,16) 


112 


CALL SYG 12) 


113 

6 

CALL ENGBAL 


114 


RETURN 



115 

C 




116 

C 




117 

c 




118 

7 

FORMAT 

( 1HB, A6, 14X7H AM=, F7» 3, 6X7H ALTP= »F7*0, 6X7H 

T4=,F8*2 

119 


1 ,25X7H 

ETAR^t F7« 4) 


120 

8 

FORMAT 

( 1HB, A6* 14X7H AM=* F7.3,6X7H ALTP=, F7. 0, 6X7H 

T4=,F8.2 

121 


1 , 5X7H 

T7= t F8» 2 , 5X7H ETAR = ,F7.4) 


122 

9 

FORMAT 

( 1HB»A6,14X7H AM= , F7 . 3, 6X7H ALTP=,F7* 0, 6X7H 

T4=,F8* 2 

123 


1 , 5X7H 

T24=,F8.2,5X7H £TAR=,F7.4) 


124 

10 

FORMAT 

(6H0MAIN , 4A6 , 9X3HFG=,F9.2,18X3HFN= i ,F9*2»18X4HSFC = 

,F8.5) 

125 

11 

FORMAT 

( 6H DUCT , 4A6 ) 


126 

12 

FORMAT 

1 16HOCONVERGED AFTER, I4,6H LOOPS,/, 1H1) 


127 

13 

FORMAT 

1 1 H , A6,9Xf7E15«6,I4) 


128 

14 

FORMAT 

(1H ) 


129 

15 

FORMAT 

(1H ,8E15.6) 


130 

16 

FORMAT 

1 1 HI ) 


,131 

17 

FORMAT 

( 65H0FAN AND MIDDLE SPOOL ARE ATTACHED , USE INNER 

AND OUTE 

132 


1R TURBINES) 


133 

18 

FORMAT 

(7AH0MIDDLE AND COMPRESSOR SPOOLS ARE ATTACHED . USE MIDDLE 

134 


1 AND OUTER TURBINES) 


135 

19 

FORMAT 

( 19H0THREE SPOOL ENGINE) 


136 

20 

FORMAT 

(21H0N0 AIRFLOW INTO WING) 


137 

21 

FORMAT 

UH+22X.14H, AFT-TURBOFAN) 


138 

22 

FORMAT 

(IAHO AFT-TURBOFAN) 


139 

23 

FORMAT 

(22H0MIDDLE SPOOL IS DUMMY) 


140 


END 



141 


$1 BFTC CONOJT DECK 

SUBROUTINE CONOUT (ICON) I 

COMMON / ALL/ 2 

1WORD , IDES ,JDES ,KDES » MODE »INIT ,IDUMP ,IAMTP , 3 

2 IGASMK» IDBURN» IAFTBNt IDCD , IMCD , IDSHOC, IMSHOC, NOZFLT, 

3ITRYS .LOOPER, NOMAP , NUMMAP, MAPEDG, TOLALL , ARR ( 6 ) 5 

COMMON /DESIGN/ 6 

IPCNFGJ.PCNCGUtT4GU ,DUMD1 ,DUMD2 tDELFG t DELFN » DELSFC. 7 

2ZFDS »PCNFDS»PRFDS , ETAFDS,WAFDS ,PRFCF , ETAFCF , WAFCF , 8 

3ZCDS t PCNCDSfPRCDS , ETACDS, WACDS tPRCCF * ETACCF , WACCF , 9 

4T4DS tWFBDS , DTCODS , ETABDS, WA3CDS, DPC3DS, DTCOCF , ETABCF, 10 

5TFHPDS* CNHPDS* ETHPDS »TFHPCF»CNHPCF»ETHPCF»DHHPCF*T2DS » 11 

6TFLPDS t CNLPDS» ETLPDS »TFLPCF»CNLPCF»ETLPCF» DHLPCF , T21DS , 12 

7T2ADS tWFOOS .DTDUDS , ETADDS» WA23DS, DPDUDS, DTDUCF , ET AOCF » 13 

8T7DS > WFADS , DT AFDS , ETA ADS, WG6CDS , DP AFDS, DT AFCF, ETAACF, 1A 

9A55 * A25 ,A6 »A7 ,A8 ,A9 ,A28 ,A29 , 15 

$PS55 ,AM55 , CVDNOZ » CVMNOZ, A8SAV , A9SAV , A28SAV, A29SAV 16 

COMMON / FRONT/ 17 

1T1 ,P1 t HI ,S1 » T2 »P2 ,H2 ,S2 » 13 
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2T21 

*P21 

§ H2 1 

9 S21 

, T3 

*P3 

*H3 

*S3 

$ 

19 

3T4 

9 P4 

$ H4 

*S4 

» T5 

*P5 

*H5 

?S5 

•? 

20 

4T55 

* P55 

9 H55 

* S55 

» BLF 

*BLC 

« BLOU 

® BLOB 


21 

5CNF 

,PRF 

* ETAF 

,HAFC 

, WAF 

9 A3 

g yG4 

« F AR4 

* 

22 

6CNC 

s PRC 

9 ET AC 


9 V£ AC 

$ ETAB 

9 DPCQM 

t DUMF 

* 

23 

7CNHPM 

9 FT ATHM* DHTCHM * DHTCM 

9 BLHP 

9 WG5 

9 F AR5 

*CS 

f 

24 

8 CMLPM 

*ETATLM,DHTCLM*DHTFM 

« BLLP 

® WG55 

9 F&R55 

« HPEXT 

© 

23 

9AM 

$ ALTP 

*ETAR 

t ZF 

sPCNF 

9 ZC 

9 PCMC 

® hfFB 

© 

25 

$TFFHPM»TFFLPM»PCBLF 

9 PCBLC 

§ PCBLDU® PCBLOB 

f PCBLHP 

® PCBLLP 

27 

COMMON / SIDE/ 







28 

1XP1 

©XWAF 

, XWAC 

tXBLF 

9 X 8 LDU 

*XH3 

© DUMS 1 

® DUMS2 

9 

29 

2 XT 2 1 

fXP 2 1 

, XH21 

y X S 2 1 

f 123 

*P23 

9 H23 

® S23 

9 

30 

3T24 

« P24 

e H24 

t S24 

9125 

*P25 

9 H25 

® S25 

* 

31 

4T28 

t P28 

, H28 

*S28 

9 T29 

® P29 

®H29 

9 S29 


32 

5WAD 

$ WFD 

, WG24 

t FAR24 

9 ET AD 

9 DPDUG 

® BYPASS 

® DUMS3 

* 

33 

6TS28 

t PS28 

s V28 

9 AM2 8 

*TS29 

* PS29 

*¥29 

? &M2 9 


34 

COMMON / BACK/ 







35 

1XT55 

9 XP55 

9 XH55 

®XS55 

*XT25 

S XP25 

9 XH25 

© XS25 

9 

36 

2XWFB 

«XWG55 

, XF AR55 • XWFD 

t XWG24 

9 XFAR24 

■ 9 XXPI 

9 DUMB 

9 

37 

3T6 

®P 6 

t H 6 

9 S 6 

® 17 

• P 7 

t H7 

® S7 

9 

38 

4T8 

*P 8 

9 H 8 

9 S 8 

t T 9 

*P 9 

t H9 

tS9 

9 

39 

5HG6 

tWFA 

9 HG7 

9 FAR7 

tETAA 

9 DPAFT 

f ¥55 

t V25 

» 

40 

SPSS 

tV 6 

9 AM 6 

9 TS7 

t PS? 


9 AM7 

®AM25 

t 

41 

7TS8 

t PS 8 

9 ¥8 

t AMS 

*TS9 

9 P S9 

®V9 

t AM9 

f 

42 

8 VA 

9 FRO 

®VJD 

9 FGMD 

9 VJM 

® PGMM 

® FGPD 

® FGPM 

f 

43 

9FGM 

9 FGP 

tWFT 

tWGT 

» FART 

t FG 

t FM 

®SFC 


4k 


COMMON /DUMMYS/ DUMMY ( 21) , WA32 » DPWGDS, DPWI MS, WA32DS » 638 » AM38, V3B , 45 


1T38,H33,P38,TS38,PS38,T39,H39,P39,TS39, V39,AM39,A39,BPRINT,WG37, 46 

2CVDWN3,FGMWNG»FGPWNG»FNWING,FNMAIN» FWOVFN, D IMMY ( 52 ) 47 

COMMON/SPOOL2/T22,P22,H22tS22,T50,P50,H50,S50,WA22,ZI,P:NI,CNI,PRI 48 

l.ETAI, rfACI,TFFIPM,CNIPM,ETATIM,DHTCIM,DHTIM,BLIP,PCBLIP,PCNIGU, 49 

2ZIDS, 50 

3PCNIDS,PRI0S,ETAIDS, WAIDS,PRICF,ETAICF,WAICF,TFIPDS,CNIPDS,ETIPOS, 51 

4TFIPCF,CNIPCF,ETAPCF,DHIPCF, WAICDS,WAI,PCBLI,BLI .T22DS.MA21 52 

DIMENSION PARAMI424) , WORDY ( 424) , IOUT ( 150 ) » AOUT < 6) ,W0UT(6) 53 

EQUIVALENCE ( FFOVFN, DUMMY ( 54) ) , ( FCOVFN, DUMMY! 55 ) ) , 54 

1 ( FMNOFN, DUMMY (56) ) » ( F NO VFD, DUMMY ( 57 ) ) 55 

EQUIVALENCE (PARAM.PCNFGU) 56 

DATA (WORDY(I), 1-1,98)/ 57 

16HPCNFSU* 6HPCNCGU , 6HT4GU , 6HDUMD1 , 6HDUMD2 ,6HDELFG , 6HDELFN , 58 

26HDELSFC, 6HZFDS ,6HPCNFDS, 6HPRFDS , 6HETAF0S , 6HWAFDS .6HPRFCF , 59 

36HETAFCF* 6HWAFCF .6HZCDS , 6HPCNCDS, 6HPRC0S , 6HETACDS, 6HWACDS , 60 

46HPRCCF , 6HETACCF, 6HWACCF ,6HT4DS »6HWFBDS ,6HDTC0DS,6HETAB3S, 61 

56HWA33DS»6HDPC0DS»6HDTC0CF*6HETABCF»6HTFHPDS*6HCNHPDS»6H£THPDS* 62 

66HTFHPCF, 6HCNHPCF * 6METHPCF »6H0HHPCF,6HT20S ,6HTFLPDS,6HCNLPDS, 63 

76HETLPDS,6HTFLPCF,6HCNLPCF*6HETLPCF, 6HDHLPCF ,6HT21DS » 6HT24DS , 64 

86HWFDDS , 6HDTDUDS, 6HETADDS, 6HWA23DS, 6HDPDUDS,6HDTDUCF,6HETADCF, 65 


96HT7DS , 6HWFADS , 6HDT AFDS »6HET AADS, 6HWG6CDS, 6HDP AFDS, 6HDT AFCF , 66 


$ 6 HETAACF 

t 6HA55 

1 6BA25 

9 6 HA 6 

t 6HA7 

9 6 HA 8 

®6HA9 

9 

67 

S6HA28 

© 6HA29 

1 6 HP S55 

® 6HAM55 

® 6HCVDN02 

9 6 HC VMNOZ 

96 iA 8 SA¥ 

9 

68 

S6HA9SAV 

? 6HA28S AV 

? 6H&29S AY 

? 6HT1 

9 6HP1 

® 6 HH 1 

9 6 HS 1 

9 

69 

$ 6 HT 2 

» 6HP2 

j 6HH2 

® 6HS2 

9 6HT21 

« 6HP21 

© 6 HH 21 

9 

70 

S6HS21 

9 6HT3 

§ 6 "IP 3 

9 6HH3 

9 6HS3 

t 6 HT 4 

* 64P4 

/ 

71 

DATA (rfOROYCI)*!* 

99 9 189)/ 






72 

16HH4 

9 6HS4 

, 6HT5 

? 6 HP 5 

t 6HH5 

® 6HS5 

$ 6H3T55 

9 

73 

26HP55 

9 6HH55 

9 6HS55 

® 6 HBLF 

^6H3LG 

© 6 HBLDU 

1 6 HBLQB 

9 

74 

36HCNF 

9 6 HPRF 

1 6 HET AF 

© 6 HWAFG 

9 6 HHAF 

9 6HWA3 

®6HWG4 

9 

75 

46HF AR4 

9 6 HCNC 

© 6 HPRC 

© 6 HETAC 

y 6 HHACC 

9 6 HHAC 

9 6 HETAB 

9 

76 

56HDPCDM 

® 6 HDUMP 

9 6 HCNHPM 

® 6 HETATHM 

9 6 HDH TCHM 

9 6 HDHTGM 

96 MBLHP 

9 

77 

66HWG5 

©6HFAR5 

9 6 HCS 

® 6 HCNLPM 

9 6 HETAL M 

© 6 -iDHTCLM 

96 HDMTFM 

9 

78 

76HBLLP 

? 6HWG55 

? 6 HF AR55 

9 6 HHPEXT 

9 6 HAM 

9 6 HAL TP 

96 HETAR 

9 

79 

86HZF 

® 6HPCNF 

9 6HZC 

« 6HPCNC 

9 6HWF B 

? 6HTFFHPM 

9 6HTFFLPM 

' 9 

80 

96HPCBLF 

9 6 HPCBLC 

© 6HPCBLDU 

9 6HPCBL0B 

9 6HPCBLHP 

9 6HPCBLLP 

96 HXPI 

9 

81 
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c 

1 


*** 


c 

6 


*** 


S6HXWAF 9 6HX WAC * 5^XBLF » 6HXBL0U ,6HXH3 

, 6HDUMS1 

, 6HDUMS2 

9 

82 

S6HXT21 1 6HXP2 1 ,6HXH21 ,6HXS21 ,6HT23 

, 6HP2 3 

, 6HH23 

9 

83 

S6HS23 *6HT24 ,6HP24 »6HH24 ,6HS24 

, 6HT25 

» 6HP25 

9 

84 

S6HH25 9 6HS25 »6HT28 ,6HP28 ,6HH28 

, 6HS28 

, 6HT29 

/ 

85 

DATA ( WORDYU), 1 = 190,280)/ 




86 

16HP29 9 6HH29 ,6H$29 , 6 HWAD v 6 HWFD 

* 6HWG2 4 

, 6HF AR24 

9 

87 

26HETA0 ,6HDPDUC , 6HBYPASS , 6HDUMS3 ,6HTS28 

, 6HP S28 

9 6HV2 8 

9 

88 

36HAM28 »6HTS29 ,6HPS29 ,6HV29 ,6HAM29 

,6HXT55 

, 6HXP55 

9 

89 

46HXH55 , 6HXS55 ,6HXT25 ,6HXP25 ,6HXH25 

9 6HXS25 

, 6HXWF B 

9 

90 

56HXWG5 5 » 6HXFAR55, 6HX WFD ,6HXWG24 ,6HXFAR24 

9 6HXXP1 

, 6HDUMB 

9 

91 

66 HT 6 9 6HP6 ,6HH6 ,6HS6 9 6HT7 

9 6HP7 

f 6HH7 

9 

92 

76HS7 f 6 HT 8 f 6 HP 8 , 6 HH 8 , 6 HS 8 

, 6HT9 

9 64P9 

9 

93 

86HH9 « 6HS9 ,64WG6 , 6 HWFA f 6HWG7 

9 6 HF AR7 

, 6 HET AA 

9 

94 

96HDPAFT ,6HV55 ,6HV25 , 6 HPS 6 * 6 HV 6 

96 HAM 6 

»6HTS7 

9 

95 

$6HPS7 9 6HV7 » 6HAM7 96HAM25 ,6HTS8 

9 6 HPS 8 

, 6 HV 8 

9 

96 

S 6 HAM 8 9 6HTS9 ,6HPS9 ,6HV9 *6HAH9 

9 6 HVA 

9 6 HFRD 

9 

97 

S 6 HVJD 9 6 HFGMD , 6 HVJM , 6 HFGMM y 6 HFGPD 

9 6 HFGPM 

, 6 HFGM 

9 

98 

S6HFGP 9 6HWFT ,6HWGT 9 6HFART ,6HFS 

9 6HFN 

, 6 HSFC 

/ 

99 

DATA (WORDY(I), 1=281, 424)/ 




100 

121*0* f 6HW A32 1 6 HDPWGDS 9 6 HDPWING* 6HW A32DS 

9 6HA38 

9 6HAH38 

9 

101 

26HV38 9 6HT38 ,6HH38 f 6HP38 ,6HTS38 

9 6HPS38 

9 6HT39 

9 

102 

36HH39 96HP39 f 6HTS39 9 6HV39 9 6HAM39 

»6HA39 

9 6 HBPRI NT 

9 

103 

46HWG37 9 6 HCVDWNG, 6 HFGMWNS, 6 HFGPWNG, 6 HFNWI MG 

9 6 HFNMAI N 

« 6HFW3VFN» 

104 

56HPS39 ,4*0* 9 6HFF0VFN, 6HFC3VFMt 6HFMN0FN 

9 6HFN0VFD 

,4*0® 

9 

105 

66 HTFFHP , 6 HTFFIP , 6 HTFFLP , 6 HCNHP , 6 HCNIP 

9 6 HCNLP 

9 


106 

76HDHT:HP9 6 HDHTC , 6 HDHTC IP 9 6 HDHTI 9 6 HDrlTCLP 

9 6 HDHTF 

» 


107 

86 HETAT -IP, 6 HETATIP, 6 HETATLP 96 HVJW ,23*0. , 




108 

96HT22 9 6HP22 ,6HH22 f6HS22 ,6HT50 

9 6HP50 

,6HH50 

9 

109 

$6HS50 , 6HWA22 , 6 HZI 96 HPCNI f 6 HCMI 

, 6 HPRI 

, 6 HETAI 

9 

no 

S 6 HWACI , 6 HTFFIPM» 6 HCNIPM 9 6 HE TATI M, 6 HDHTC IM 

, 6 HDHT I M 

9 6 HBLI P 

9 

111 

S 6 HPC 8 LIP 96 HPCNIGU 96 HZIDS 9 6 HPCNID$» 6 HPRID$ 

9 6 HETAI DS 

9 6 HWAI DS 

9 

112 

$ 6 HPRi:F , 6 HETAI CF, 6 HWA ICF , 6 HTF IPDS, 6 HCNIPDS 

, 6 HETI PDS 

, 6 HTFI PCF, 

113 

S 6 HCN I * CF, 6 HETAPCF, 6 HDHIPCF , 6 HWAICDS 96 HWAI 

, 6 HPCBLI 

9 6 HBLI 

9 

114 

$6HT220S ,6HWA21 / 




115 

DATA MEEND 98 LANK 9 LIMIT/ 6 HTHEEND 96 H ,424/ 



115 

GO TO ( 196 ) 9 ! CON 




117 

INPUT SECTION 




11 B 

DO 4 >4 = 1,150 




119 

NUM=N 




120 

READ (5,11) AIN, CHANGE 




121 

IF ( AIN.EQ.THEEND) GO TO 5 




122 

DO 2 J=l, LIMIT 




123 

J J= J 




124 

IF ( AI M* EQ* WORDY { J ) ) GO TO 3 




125 

CONTINJE 




125 

WRITE (6,12) AIN 




127 

GO TO 4 




128 

IOUT ( N JM ) =J J 




129 

IF (C-(ANGE*NE. BLANK) WORDY ( J J ) = CHANGE 




130 

CONTINUE 




131 

WRITE (6913) 




132 

NUM=NJM-1 




133 

RETURN 




134 

OUTPUT SECTION 




135 

IF (NJM.EQ.l) GO TO 10 




136 

N=NUM 




137 

J = 6 




138 

DO 9 I=nNUM,6 




139 

IF ( N® ST » 6 ) GO TO 7 




140 

J=N 




141 

N=N-6 




142 

DO 8 <*1,J 




143 

L= I -8-K“ 1 




144 
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M* I GUT ( L ) 145 

WOUT(<)=WORDY(M) 146 

8 AOUT(K)=PARAM(M) 147 

WRITE (6,14) ( HOUT ( < ) ,K= 1, J ) 148 

WRITE (6,15) ( AOUT { K ) » K= 1, J ) 149 

IF (N.LE.O) GO TO 10 150 

9 CONTIMJE 151 

10 RETURN 152 

C 153 

C 154 

C 155 

11 FORMAT ( A6 , 6X» A6 ) 156 

12 FORMAT (10HGTHE WORD ,A6,26H NOT FOUND IN COMMON ARRAY) 157 

13 FORMAT ( 22H0ERR0R IN CONOUT INPUT) 158 

14 FORMAT ( 26X , A6, 5 { 9X A6 ) ) 159 

15 FORMAT (1H ,20X6E15.6) 160 

END 161 


$ I BFTC THCOMP DECK 

SUBROUTINE THCOMP ( PR , ET A, T, H, S , P , TO, HO, SO » PO ) 1 

p Q=p*f>n 2 

TP=T*PR**0.28572 3 

DO I 1=1,25 4 

CALL THERMO (PO, HP, TP, SP,X1,0,X2, 0) 5 

DELS=S P-S 6 

IF (ABS(DELS).LE .0. 00005 *S ) GO TO 2 7 

1 TP=TP/EXP(4.*DELS) 8 

CALL ERROR 9 

2 HO=H+( (HP-H)/ETA) 10 

CALL THERMO ( PO, HO, TO f SO, XI, 0, X2, 1) 11 

RETURN 12 

END 13 


$ I BFTC PROCOM DECK 

SUBROUTINE PROCOM ( F ARX , TEX, CSE X, AKEX, C P EX , RE X, PH I , HEX ) 1 

IF (FARX.LE.0.067623) GO TO 1 2 

FARX=0. 067623 3 

1 IF (TEX. GE. 300. ) GO TO 2 4 

TEX = 30 0. 5 

2 IF (TEX. LE. 4000* ) GO TO 3 5 

TEX = 40 00. 7 

3 IF ( F ARX. GE. 0.0) GO TO 4 8 

F ARX=D • 0 9 

C AIR PATH 10 

4 CPA= ( ( { { ( (1.0115540E-25*TEX-1.4526770E-21)*TEX+7.6215767E-18)*TEX- 11 

1 1.5 123 259E-14)*TEX-6.7178376E-12)*TEX*6.55194a6E-08)*TEX-5. 15 36879 12 

2E-05)+TEX+2.5020051E-01 13 

HEA=( ( ( ( ( ( ( 1.2644425 E-26+T EX-2. 075252ZE-22 ) +TEX+ 1.270263 OE-1 8) *TEX 14 

1-3 .0255518 E-15)*TEX-1. 67 94 59 4E-12)*TEX+2.1839826E-08)*TEX~2.576B44 15 

20E-05) +TEX+2. 5020051 E-01 ) + TEX- 1 . 7558886E +00 IS 

S£A=+2. 50 20051 E-01*AL0G(TEX)+( ( ( ( 1(1. 445 0767 E- 26* TEX-2 • 421 1288 E- 2 2 17 

1)*TEX+1.5243153E-18) + TEX-3 . 7 820648E- 1 5 ) * TE X-2. 2392 790E-1 2 ) * TEX + 3 . 2 18 

2759743E-08)*TEX-5.1576879E-05)+TEX+4.5432300E-02 19 
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oonooooooo 


I F {FARX®LE*0*0) GO TO 5 20 

C FUEL /A IR PATH 21 

CPF=U ( ( t (7®26787I0E“*2 5»TEX-1®3335668E-20)»TEX^1®0212913E~16)»TEX” 22 

14*2051 1 04E-1 3 3 *TEX*9 ^9686793E-10 5 *TEX-1» 3771 901 E~Q6^TEX4-1 *2258630 23 

2E-03 Js-T EX 4-7 ©381663 8E -02 2 4 

HEF = ( { i i i U 9,0848388 E-26*TEX-l, 9050949E-21 )^TEX^1* 7021 52 5E “17) *TEX 25 

1~8*4132208E-14)«T EX *2* 49 2I698E-10)®TEX- 4*59 06 332E~07)#TEX* 6*123315 26 

20E-04) *TEX*7,3816638E-02 )*TEX*3«0581530E+01 2? 

SEF=*7s3816638E-02*AL0GI TEX)*I iiii il» 0382670E-25®TEX-2* 2226118E-21 28 

1 )*TtX«-2»0425826E-17)*TEX-l,0512776E-13)*TEX+3*3228928E-10)»TEX-6*8 29 

2859505 E-07)*TEX*X* 2258630E-0 3 ) *TEX+6.48-3398E-01 30 

5 CPEX = « CPA*FARX*CPF)/ { X**FARX) 31 

HEX=HEA*FARX*HEF)/{ X**FARX) 32 

PH I = ( 5 E A+F ARX*SEF ) / { X « +F AR X ) 3 3 

AMW=28*97-*946186#FARX 34 

REX=l®986375/AMW 35 

akex=:pex/(cpex-rex) 35 

CSEX=S3RT( AK£X*REX*TEX*2503X*37) 37 

RETURM 38 

END 39 


SIBFTC SURCH DECK 

SUBROJTIME SEARCH I P * A , B f C • 0 , AX* NA « BX , CX 9 DX « NO 5 NAM f NQM , NCQDE I 1 

DIMENSION AX! NAM) ,8X (NAM.NOM ) ,CX(NAM,NOM) • DX(NAKjNQM) »N0( NAM) «Q( 9) 2 

*■** NEEDS SUBROUTINE AFQUIR . _ 3 

*** AX AND BX MUST BE STORED CO TO HI 4 

*** P=I NP JT PROPORTION BETWEEN 0.0 AND 1*0 5 

IF NOT INPUT » P MUST EQUAL “1* 6 

*** NC0DE=00 OK 7 

NCODE= 01 A LO 8 

NCODE = 02 A HI 9 

NCODE=07 ERROR 10 

NCODE= 10 B LO 11 

NCODE= 20 B HI 12 

MCODE = 0 13 

C=0. 14 

D*0* 15 

C FIND A 15 

DO 1 1*1, NA 17 

I H= I 18 

IF ( A« L? * AX ( I ) ) GO TO 2 19 

1 CONTINUE 20 

IF ( A* GT® AX ( IH 5 ) NC0DE=2 21 

A= AX ( I H ) 22 

GO TO 3 23 

2 IF < I H . GT « 1 ) GO TO 3 24 

NCQDE- 1 25 

IH-2 26 

A= AX { 1 ) 27 

3 I L= I H~ 1 28 

L I MH = M D t I H 5 29 

LI ML = NSO { I L ) 30 

C *** FIND B 31 

PRM=( A-AX(IL) )/( AX(!H)-AX( IL H 3 2 

PP=P 33 

IF {p s 3E*0*> GO TO 6 34 

BL = BX{ I L , 1 ) +PRM* i BX! IH, 1 1-BX UL* i U 3 5 

BH = BX I IL,LIML)+PRMM 6XUH,LIMH)-BXtIL,LIML) 5 36 
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IF (B.SE.BLJ GO TO 4 37 

NCODE* NCODE+IO 38 

B=BL 39 

GO TO 5 40 

4 IF IB.LE.BH) GO TO 5 41 

NCODE* NC0DE+20 42 

B=BH 43 

5 PP=0. 5 44 

Q(2>=3. 45 

Q{3 ) =0. 46 

6 BH=PP* {BX(IH,LIMH)-BX(IH»1))+BXIIH»1) 47 

BL=PP*(BX{ IL,LIML)-BX( IL»1> )+BXI I L » 1 ) 43 

DO 7 J =2* L IMH 49 

JH=J 50 

IF IB3.LT. BX(IH,J>) GO TO 8 51 

7 CONTINUE 52 

8 JL= JH-1 53 

DO 9 <=2,LIML 54 

KH = K 55 

IF (BL.LT.BXI IL,K) ) GO TO 10 55 

9 CONTINUE 57 

10 KL=KH- 1 58 

PR= ( BX ( IH, JL)-BH)/IBX( IH,JH)-BX(IH, JL) ) 59 

CH=CXt IH, JL) -PR* I CXI IH,JH)-CX(IH, JL) ) 63 

DH=DX( I H, JL ) -PR* ( DX( IH,JH)-DX( IH, JL ) ) 61 

PR=(B<I IL,KL >-BL 1 / I BX ( IL,KH)-BX( IL.XLII 52 

CL = CX ( I L, KL ) -PR* ( CXI IL,KH)-CX( IL.KU ) 6 3 

DL = DXI I L, KL ) -PR* ( DX( IL,KH)-DX( IL,KL ) ) 64 

BT=BL*PRM«(BH-BL) - 65 

CT = CLf4*RM*ICH-CL ) 66 

DT=DL*PRM*( DH-DL ) 67 

IF (P.SE.O.) GO TO 13 68 

DIR=S3RT ( B/BT ) 69 

£RR= l 3 -BT ) / B 70 

CALL 4FQUIR I Q( 1 ) *PP , ERR,0 . , 25. , 0. 001 , DI R , PT , I CON ) 71 

GO TO ( 11,13,12) , ICON 72 

11 PP=PT 73 

IF (P’.LT.O.) PP=0. 74 

IF (P9.GT.1.) PP«1. 75 

GO TO 6 76 

12 NCODE* 7 77 

13 B=BT 78 

C=C T 79 

D=DT 80 

RETURN 81 

END 82 


$IBFTC MAPBAK DECK 

SUBROJT INE MAPBAC ( M AP, MAPGO , TFFS, TFF, CNS, CN , PCN, T , MODE , I GO , NUM) 1 

DATA *H, WL , HT , WS/6H H.P. ,6H L.P. ,5H TFF , 6HSPEED / 2 

DATA 3M/6H I.P. / 3 

MAPS=M AP 4 

IF (MAP.EQ.3) MAP=2 5 

IF (NJM.GT.O) GO TO 1 6 

NUMH=0 7 

NUML=3 8 

1 I G0=MAPG0+3* I MAP-1 ) 9 

GO TO 12,3,5,6,7,9), IGO 10 
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C *** HIGH PRESSURE TURBINE II 

2 TFF=TF F+0 * 1* ( TFF-TFF S ) 12 

WRITE (8, 10) WH, WT, TFFS, TFF 13 

RETURN 14 

3 CN^CN* 0® 05*( CN-CNS ) 15 

IF ( MODE® NE® 1 ! PCN=PCN* ( CN/CNS ) 16 

IF ( MODE® EQ® 1 ) T=T*f CNS/CN ) **2 17 

WRITE 18*10) WH, WS,CNS,CN 18 

IF { M J MH® GT • 2 ) GO TO 4 19 

NUM = 1 20 

NUMH=M JMH*1 21 

RETURN 22 

4 DELCN= CN-CNS 23 

IF ( DELCN®GE®0« ) RETURN 24 

TFF-TF F*f 1« + DELCN/CN ) 25 

WRITE ( 8 ? 1 1 ) WH, WT , TFFS, TFF 25 

RETURN 27 

5 TFF^TFF+0®1MTFF-TFFS> 28 

WRITE (8,10) WH, WT , TFFS , TFF 29 

GO TO 3 30 

C *** LOW PRESSURE TURBINE 31 

6 TFF-T = F+O® 1* ( TFF-TFFS ) 32 

IF { MAPS® EQ® 2) WRITE (8,10) WL, WT, TFFS, TFF 33 

IF (M4PS®EQ*3) WRITE (8,10) WM, WT, TFFS, TFF 34 

MAP-MAPS 35 

RETURN 36 

7 CN=CN*0® 05M CN-CNS ) 37 

IF ( MODE® NE® 3 ) PCN=PCN» ( CN/CNS ) 38 

IF ( MODE® EQ® 3 ) T=T*(CN$/CN) 39 

IF ( MAPS » EQ® 2) WRITE (8,10) WL , WS, CMS, CN 40 

IF (HAPS® EQ# 3 ) WRITE (8,10) WM,WS,CNS,CN 41 

MAP-MAPS 42 

IF ( INJML® GT « 2) GO TO 8 43 

NUM=1 44 

NUML=N JML+1 45 

RETURN 46 

8 DELCN s CN-CN$ 47 

IF ( DE LCN® GE® 0 » ) RETURN 48 

TFF = TFFM1®*DELCN/CN) 49 

IF (MAPS® EQ® 2 ) WRITE (8,11) WL, WT, TFFS, TFF 50 

IF (MAPS® EQ® 3) WRITE (8,11) WM, WT, TFFS , TFF 51 

MAP = MA PS 52 

RETURN 53 

9 TFF-TFF+0®1*(TFF-TFFS) 54 

IF ( MA PS ® EQ* 2 ) WRITE (8,10) WL, WT, TFFS, TFF 55 

IF (MAPS® EQ® 3) WRITE (8,10) WM , WT, TFFS, TFF 56 

MAP-MAPS 57 

GO TO 7 58 

C 59 

C 60 

10 FORMAT (1H0, A6 , 12HTUR BINE MAP , A6, 4HWAS = , E13. 6 , 1 OH AND NOW=,E13®6 61 

1 , 6H$$I $$$ ) 62 

11 FORMAT (1H0, A6, A6,22HWAS ALSO CHANGED FROM ,E13*6,5H TO ,E13*S»5H 63 

1 $$$$$$ ) 64 

END 65 
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SIBFTC CONVRS OECK 

SUBROUTINE CONVRG I T I , HI , P I , S I , F AR , WG, P A , I DES, AO, PR , TO , HO , P3 , S3, IS 1 

10,PS0, \/ 0 -» AMO , ICON) 2 

ICON=L SUBSONIC* COMPARE PI WITH PR 3 

ICON-2 SONIC, COMPARE PI WITH PR 4 

ICON=4 ERROR 5 

AJ=773 • 26 5 

CAP SF= 2 1 1 6 • 217 7 

G*32 • 174049 8 

CALL PROCOM ( FAR, T I , XX 1, XX2, XX3, XX4, PHI I , XX6) 9 

*** SONIC CALCULATIONS 10 

J=0 11 

TSS=0.833*TI 12 

J=J+1 13 

CALL PROCOM { F AR , TSS , CSS , AKS , CP , REXS , PH I SS, HSS ) 14 

HSCAL=HI-CSS**2/(2.*G*AJ ) 15 

DELHS=HSCAL-HSS 16 

IF < A9$(DELHS)-0.0005*HSCAL) 4*4*2 17 

TSS=T5S+DELHS/CP 18 

IF ( J- 15 ) 1,1,3 19 

IC0N=4 20 

RETURN 21 

IF (IDES) 12,12,5 22 

*** ISENTROPIC EXPANSION CALCULATIONS 23 

J=0 24 

TSI=TI *{PA/PI)»* 0*286 25 

J=J+1 26 

CALL THERMO ( PA, HS I, TS I , SS I , XX 1 , 1 , F AR , 0 ) 27 

IF ( ABS<$SI-Sn-0.0001*SI) 8,8,7 28 

TSI=TSI/EXP(4**(SSI-SI ) ) 2 9 

IF (J-30) 6,6,3 30 

VIS=S3RT( 2**G»A J * ( HI -HS I )) 31 

IF (VIS-CSS) 9,11,11 32 

*** SUBSONIC DESIGN, CALCULATE AO 33 

VO=VIS 34 

TSO=TS I 35 

P$0=PA 36 

CALL PROCOM ( F AR , TSO , CSO ,XX2 , XX3 , REX , PH I SO, HSO ) 37 

RHO=CAPSF*PSO/(AJ*REX*TSQ) 38 

A0= WG/ ( RHO*VO ) 39 

AM0=V37CS 0 40 

PR=PI 41 

I CON=L 42 

10 T0= T I 43 

HO=HI 44 

P0=PI 45 

SO=SI 46 

RETURN 47 

C *** SONIC DESIGN, CALCULATE AO 48 

11 VO=CS$ 49 

T SO = TS S 50 

PSO=PI MTSO/TI ) ** ( AKS/( AKS-1 • ) ) 51 

RHO=CAPSF*PSO/ (AJ*REXS*TS3) 52 

A0=WG7 (RHO*VO) 53 

AM0=1 • 0 54 

PR=P I 55 

I C0N=2 56 

GO TO 10 57 

C *** NON-DESIGN, CALCULATE CRITICAL CONDITIONS 58 

12 VO=CSS 59 

TSO= TS S 60 

PSO=PA 61 

RHO=CAPSF*PSO/ (AJ*REXS*TSD) 62 
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AOCRIT=WG/(RHO*VO) 63 

AM0=1. 3 64 

PR=PSO*(TI/TSO>**(AKS/C AKS-1.) ) 65 

IF ( A3-A0CRIT) 13,13.14 66 

C *** NON-DESIGN, CRITICAL AND SUPERCRITICAL CONDITIONS 67 

13 PSO=PSO*AOCRIT/AO 68 

PR=PR*AOCRI T/AO 69 

ICON=2 70 

GO TO 10 71 

C *** NON-DESIGN, SUBSONIC CALCULATIONS 72 

14 PSO=PA 73 

J=0 74 

TS0=0.333*TS0 75 

15 J=J+1 76 

CALL PROCOM { FAR, TSO, CSO, AKO ,CP ,REX, PHI SO, HSO) 77 

RHO=C4PSF*PSO/(AJ*REX*TSO) 78 

VO=WG/(RHO*AO) 79 

HSCAL=HI-V0**2/(2.»G*AJ) 80 

DELHS*HSCAL-HSO 61 

IF ( A3S{DELHS)-0.0005*HSCAL1 17,17,16 82 

16 TSO=TS3+DELHS/CP 83 

IF (J-15) 15,15,3 84 

17 AMO=V37CSO 85 

PR=PS3*tTI/TSO)**l AKO/l AKO-1, ) ) 86 

ICON®! 87 

GO TO 10 88 

END 89 


6IBFTC CONDI V DECK 

SUBROUTINE CONDIV (T I ,HI ,P I , SI , FAR, WG,P A, I DES, AT, A0,P I R, TT , HT , PT , S 1 

1T»T0»H3,P0»S0»TST»TSQ»PST»PS0»VT» VO, AMT , AMO, ICON) 2 

C ICON®! SUBSONIC, COMPARE PIR WITH PI 3 

C IC0N*2 SONIC, SHOCK INSIDE NOZZLE, COMPARE PIR WITH PI 4 

C IC0N=3 SONIC, SHOCK OUTSIDE NOZZLE, COMPARE PIR WITH PI 5 

C IC0N=4 ERROR 6 

DIMENSION Q( 9 ) 7 

Q( 2 ) =0 • 8 

Q( 3 ) ®3 • 9 

AJ=773 , 26 10 

CAPSF®2116»2170 11 

G®32. 174049 12 

CALL ®RDCOM I FAR,TI , XXI , XX2, XX3, XX4, PHI I , XX6 ) 13 

C *** SONIC CALCULATIONS 14 

J=0 15 

TSS=0,333*TI 16 

1 J=J+1 17 

CALL 5 ROCOM ( FAR, TSS , CSS ,AK, CP, REXS, PHI SS,HSS) 18 

HSCAL=4I-CSS**2/(2.*G*AJ ) 19 

DELHS=HSC AL-HSS 20 

IF { ABS ( DELHS J-0.000 5*HSCAL ) 4,4,2 21 

2 TSS=TSS+DELHS/CP 22 

IF (J-15) 1,1,3 23 

3 IC0N=4 24 

RETURN 25 

4 IF (I3ES ) 11,11,5 26 

C *** SONIC DESIGN, CALCULATE AT 27 

5 VT =CSS 28 

TST=TSS 29 
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PST=PI*(TST/TI)**(AK/(AK-1. ) ) 30 

RHO=CAPSF*PST/ ( AJ*REXS*TST) 31 

AT=WGMRHO*VT) 32 

AMT=1. 0 33 

C **» IDEAL EXPANSION DESIGN, CALCULATE AO 34 

PSO=PA 35 

J=0 36 

TS0=TI*(PS0/PI)**.286 37 

6 J=J + 1 38 

CALL PROCOM { FAR, TSO, CSO, AK,CP,REX, PH I S0,HS0 ) 39 

PHI CAL = PHI I-REX+ALOG ( P I/PSO ) 40 

DELPHI * PH I CAL-PHI SO 41 

IF (ABS(DELPHI)-0.0001*PHICAL) 8,8,7 42 

7 TS0=TS3*EXP(4.*DELPHI ) 43 

IF IJ-15) 6,6,3 44 

8 VO* SORT ( 2. *G*AJ*( HI-HSO ) ) 45 

AMO=VO/CSO 46 

AO* (AT/AM0)*(2.»(l.+( AK-1. ) * AMO** 2/ 2, ) / ( AK+1 . ) ) ** ( { AK + l . ) / ( 2. *( A<- 47 

11. 1)) 48 

PIR=PI 49 

IC0N*3 50 

9 TO=T l 51 

HO=HI 52 

PO*PI 53 

SO=SI 54 

10 TT*T I 55 

HT=HI 56 

PT=PI 57 

ST=SI 58 

RETURN 59 

C *** ASSUME SONIC THROAT AND ISENTROPIC EXPANSION TO AO 60 

11 VT*CSS 61 

AMT =1, 0 62 

TST=TSS 63 

RH0=W3/(AT*VT> 64 

PST=RHD*AJ*REXS*TST/CAPSF 65 

PIR=PST*(TI/TST>**(AK/IAK-1. )) 66 

IF IPST-PA) 12,27,27 67 

12 TS0=0.95*TI 68 

MAM=0 69 

13 CALL PROCOM l FAR ,TSO , CSO, AK, CP, REX, PHISO, HSO ) 70 

AMO*S3RT(2.*( ( TI/TSO )-l. J/IAK-1.) » 71 

AOCAL*l AT/AM0)*C2.*I l.+( AK-1. )*AM0**2/2. )/< AK+l.) )**( (AK+l. )/ (2.*( 72 

1 AK-1 . ) ) ) 73 

EA=l AD-AOCAL )/A0 74 

DIR*S3RT( AO/AOCAL) 75 

CALL AFQUIR ( Q ( 1 ), TSO , EA ,0. , 100. , 0. 0001 , DI R , TSOT, JCON) 76 

GO TO (14, 18, 3), JCON 77 

14 TSO=TS 3T 78 

IF (TSO-TI ) 15,13,16 79 

15 TSC=2.*TI/(AK+1. ) 80 

IF (TSO. GT. TSC) GO TO 17 81 

16 TSO=0. 98*T I 82 

GO TO 13 83 

17 IF (Q(2).LT.30.0.0R.AMO.LT.0.95.0R.MAM.EQ. 1) GO TO 13 84 

TS0=2. *TI/(2.+0.98*( AK-1.) ) 85 

MAM*1 85 

GO TO 13 87 

18 PSO=PI R*(TSO/TI)**(AK/( AK-1. ) ) 88 

IF ( PS 3-PA ) 20,19,27 89 

C *** CRITICAL FLOW, ISENTROPIC EXPANSION TO PA 90 
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V0=AM3»CS0 91 

ICON=i 92 

GO TO 5 93 

C *** SUBSONIC FLOW 9<^ 

20 PSO=PA 95 

Q( 2 I =3 » 96 

Q( 3 ) =3. 97 

J=0 93 

TSO=0.833*TI 99 

21 J=J+1 103 

CALL >R0C0M lFAR»TSD»CSO»AK,CP»REX»PHIS3*rlS0) 101 

RHO=CAPSF*PSO/(AJ*REX*TSO) 102 

VO=WG/(RHO*AO) 103 

HSCAL*HI-V0**2/(2.*S*AJ) 104 

DELHS* HSCAL-HSO 105 

IF (A3S(DELHS)-0.0005*HSCAL) 23,23,22 106 

22 TSO=TSO+DELH$/CP 107 

IF t J-15 1 21,21,3 108 

23 AM0=V3 /C$0 109 

PIR=PS3*(TI/TS0)**(AK/( AK-l. ) ) 110 

TST*TS 0 111 

24 CALL PROCOM (FAR,TST,CST,AK,CP, REX , PHI ST, HST ) 112 

PST=PI R*(TST/TI )**(AK/(AK-i. ) ) 113 

RHO=PSr*CAPSF/( AJ*REX*TST) 114 

VT=WG/(RHO*AT) 115 

HSCAL*HI-VT»*2/(2.*S*AJ) 115 

EH= ( HSCAL-HST ) /HSCAL 117 

DIR=1.+(HSCAL-HST)/(CP*TST) 118 

CALL AFQUIR ( CM 1 ) ,TST, EH,0 ., 20. » 0. 0005, DIR, TSTT, JCON ) 119 

GO TO (25,26,3), JCON 120 

25 TST=TS TT 121 

GO TO 24 122 

26 AMT=VT/CST 123 

ICON=l 124 

GO TO 9 125 

C *** SUPERCRITICAL FLOW, ISENTROPIC EXPANSION TO PA 126 

27 PSO=P A 127 

J=0 128 

TS0=TI*(PS0/PIR)**,286 129 

28 J=J + 1 130 

CALL PROCOM ( FAR, TSO,CSO,AK, CP, REX , PHISO, HSO ) 131 

PH I CAL* PH I I-REX»ALOG( PIR/PSO) 132 

DELPHI *PHICAL-PHIS0 133 

IF ( A3S<DELPHI)-0.0001*PHICAL> 30,30,29 134 

29 TS0=TS3*EXP(4.0*DELPHI) 135 

IF (J-15) 28,28,3 136 

30 VO=SQRT ( 2 ,*G»AJ* ( HI-HSO ) ) 137 

AMQ=V3/CS0 138 

AOI 0*( AT/ AMO )* ( 2, * l 1 , +( AK-1, )#AM0»*2/2. ) /( AK + 1. ) ) ** ( ( AK*i. ) / ( 2. * ( A 139 

IK-1.))) 140 

IC0N*3 141 

N=0 142 

IF (AO-AOID) 31,9,32 143 

C *** SUPERCRITICAL FLOW, ISENTROPIC EXPANSION TO AO 144 

31 N=1 145 

32 TSO=0. 333*T I 145 

J=0 147 

33 J=J+1 148 

CALL 9 ROCOM ( FAR, TSO, CSO, AK, CP, REX, PHI SO, HSO ) 149 

AMO=S3RT(2.*( (TI/TSD)-1. )/( AK-1. ) ) 150 

AOCAL* ( AT/AM0)*(2.*( l.+C AK-1. )*AM0**2/2. )/(AK+l. ) ) ** ( ( AK + 1. ) / (2. * ( 151 

1 AK-1 • ) ) ) 152 
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DEL A=A3~A0CAL 153 

IF ( A3 5 ( DEL A )-0#000l * AO ) 35,35,34 154 

34 TSO*TS 3*SQRT ( AOCAL/ AO ) 155 

IF ( J-50 ) 33,33,3 156 

35 IF <N> 37,37,36 157 

C *** UNDEREXPANDED, SHOCK OUTSIDE NOZZLE 158 

36 PSO=PIR*(TSO/TI)**(AK/(AK~l. >> 159 

VO* AM3*CSQ 160 

GO TO 9 161 

C *** OVEREXPANDED, FIND SHOCK POSITION 162 

37 PSX*PIRMTSQ/TI)**(AK/( AK-1* ) ) 163 

PSY=PSXM2.*AK*AM0**2/(AK+1. >- ( AK-1. ) / i AK+1. ) ) 164 

IF (PA-PSY) 38,39,39 165 

C *** OVEREXPANDED, SHOCK OUTSIDE NOZZLE 166 

38 PSO*PSX 167 

VO* AM3*CS0 168 

GO TO 9 169 

C *** OVEREXPANDED, SHOCK INSIDE NOZZLE 170 

39 PSO*PA 171 

J=0 172 

TS0=0. 833»TI 173 

40 J*J+1 174 

CALL PROCOM ( FAR, TSO , CSO, AK,CP, REX, PHI SO,HSO ) 175 

RHO*CAPSF*PSO/ (AJ*REX*TSO> 175 

VO=WG/ (RHO*AO) 177 

HSCAL*HI-V0**2/ C 2**G*AJ ) 178 

DELHS*HSCAL-HSO 179 

IF {ABS(DELHS)-0.0005*HSCAL) 42,42,41 180 

41 TSQ=TS 3+DELHS/CP 181 

IF (J-15) 40,40,3 182 

42 AM0=V3/CS0 183 

TO*TI 184 

HO=H I 185 

P0*PS3*( TO/TSO) ** { AK/ I AK-1 • I ) 186 

SO*PHI I-REX*ALQG(PO) 187 

IC0N*2 188 

GO TO 10 189 

END 190 


SIBFTC THTRB DECK 

SUBROJTINE THTURB ( DH, ETA, FAR, H, S, P , TO, HO, SO, PO) 1 

HO=H-D H 2 

H0P=H-DH/6TA 3 

PT=P/2. 4 

DO 1 1*1,25 5 

CALL THERMO ( PT, HOP, TT , ST, AMWT, 1 , FAR, 1 > 5 

DELS*$T-S 7 

IF ( ABS(DELS).LE.0.00005*S> GO TO 2 8 

1 PT=P*EXP(DELS*AMWT/l. 986375 +AL 00 ( PT/P ) ) 9 

CALL ERROR 10 

2 PO=PT 11 

CALL THERMO < PO, HO, TO, SO, XI, 1, FAR, 1 ) 12 

RETURN 13 

END 14 
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$1 BFTC THERMO DECK 

SUBROUTINE THERMO i PX *HX *TX* SX, AMX, L* FAR , K } 1 

FX = 0® 2 

IF ( L» EQ* 1 ) FX=FAR 3 

IF ( K» EQ« l ) GO TO 1 4 

CALL PROCOM CFX,TX,CS,AK,CP,R«PHIsHX) 5 

GO TO 3 6 

1 TX-4# »HX 7 

DO 2 1=1,15 B 

CALL PROCOM IFX,TX,CS,AK,CP,R»PHI,H) 9 

DELH=-IX-H 10 

IF { ASS ( DELH > «LE* 0.00001 *HX ) GO TO 3 11 

2 TX*TX+ 4. *DELH 12 

WRITE (8,4) 13 

3 SX=PHl-R*ALQG( PX) 14 

AMX=1. 986375/R 15 

RETURN 16 

17 

18 

FORMAT (31HONO CONVERGENCE IN THERMO$$$$$$ ) 19 

END 20 


BFTC SERCN DECK 

SUBROUTINE SEARCH ( P , A, B ,C,D, AX,NA, BX$CX,DX,NO, NAM,NOM, NCOOE ) i 

DIMENSION AX ( NAM } ,BK ( NAM,NGM ),CX( NAM,NOM) • DXINAM ,N3M ) * NO I NAM) *019) 2 

*** NEEDS SUBROUTINE AFQUIR 3 

*** AX AN3 BX MUST BE STORED LO TO HI 4 

*** P=I NPJT PROPORTION BETWEEN 0.0 AND 1.0 5 

IF NOT INPUT, P MUST EQUAL -1. 6 

*** NC0DE=00 OK 7 

NCOOE=01 A LO 8 

NCODE S 02 A HI 9 

NC0DE=97 ERROR 10 

NCODE= 10 B LO 11 

NCODE= 20 B HI 12 

NCODE=D 13 

C=0 * 14 

0=0. 15 

C *** FIND A 16 

DO 1 1*1, NA 17 

IH= I 18 

IF ( A. LT« AX ( I ) ) GO TO 2 19 

1 CONTINJE 20 

IF ( A. GT. AX( IH H NC0DE*2 21 

A= AX (IN) 22 

GO TO 3 23 

2 IF (H.GT.i) GO TO 3 24 

NCODE= 1 25 

I H=2 26 

A=AX( 1 ) 27 

3 I L= I H- 1 28 

L I MH = M 0 C I H ) 29 

LI ML=MOC I L ! 30 

C *** FIND 8 31 

PRM=( A-AXUL) >/{ AXI IHJ-AXC ILH 32 

PP=P 33 

IF { P» GE . 0 ® ) GO TO 6 34 

BL=BX! IL, I ) -t-PRM# { BXI IH,1 )-BX( !L,1 >) 35 
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BH=BX( IL,LIML)*PRM*( BX( IH,LIMH)-BX(IL,LIML> ) 36 

IF (B.GE.BL) GO TO 4 37 

NCODE= NCODE+ 10 38 

B=BL 39 

GO TO 5 40 

4 IF IB.LE.BH) GO TO 5 41 

NC0DE=NC0DE+20 42 

B=BH 43 

5 PP=0. 5 44 

Q( 2 ) =3 . 45 

Q(3)=3. 46 

6 BH=PP* (BX(IH»LIMH)-BXIIH,1)) +BX( IH, 1 ) 47 

BL=PPMBXI IL,LIML)-BX(IL,1> >+BXIIL,l> 4B 

DO 7 J =2* L IMH 49 

JH= J 53 

IF (B-ULT.BX(IH,J)) GO TO 8 51 

7 CONTINUE 52 

8 JL= JH-1 53 

DO 9 <=2,LIML 54 

KH=K 55 

IF ( BL »LT . BX( IL,K) ) GO TO 10 56 

9 CONTINUE 57 

10 KL=KH“ 1 58 

PR= (B<( IH»JL)-BH)/CBX( IH,JH)-BX(IH,JL) ) 59 

CH=CXI IB* JL )-PR*I CXI IH, JH) — CX ( IH, JL ) ) 60 

DH=DX( IH, JL )-PR*(DXf IH,JH)-DX( IH,JL> ) 61 

PR=(B<tIL»KL)-BL } / 1 BX ( IL,KH)-BX(IL,KL) ) 62 

CL=CXC IL, KL )-PR*l CXI IL,KH)-CXIIL,KL) ) 63 

DL=DX( IL,KL )-PR*(DXl IL,KH)-DXI IL,KL) J 64 

BT=BL*PRM*IBH-BL ) 65 

CT=CL*PRM*(CH-CL) 66 

DT SS DL>PRM*C DH-DL ) 67 

IF (P.SE.O.) GO TO 13 68 

DIR=S3RT(B/BT) 69 

ERR=I3-BT)/B 70 

CALL AFQUIR I QI 1 ) ,PP , ERR ,0. , 25. ,0. 001, D I R, PT, I CON) 71 

GO TO 111,13,12), ICON 72 

11 PP=PT 73 

IF IP’.LT.O.) PP=0. 74 

IF (P’.GT.l.) PP=1. 75 

GO TO 6 76 

12 NC0DE*7 77 

13 B=BT 78 

C=CT 79 

D=DT 80 

RETURM 81 

END 82 


$IBFTC AFOUER DECK 

SUBROUTINE AFQUIR ( X, AI ND, DEPEND, ANS, AJ , TOL ,DI R, ANEW, I CON) 1 

DIMENSION X ( 9 ) 2 

C X ( 1 ) =NAME OF ARRAY TO USE 3 

C AI ND=I NOE 3 ENDANT VARIABLE 4 

C DEPEND= DEPENDANT VARIABLE 5 

C ANS=ANSWER UPON WHICH TO CONVERGE 6 

C AJ=MAX NUMBER OF TRYS 7 

C TOL=PERCENT TOLERANCE FOR CONVERGENCE 8 

C DI R=DIRECT ION AND PERCENTAGE FOR FIRST GUESS 9 
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C ANEW^CALC JIATED VALUE OF NEXT TRY AT INDEPEMD AMT VARIABLE ID 

C I CON=CONTR3L =1 GO THRU LOOP AGAIN 11 

C -2 YOU HAVE REACHED THE ANSWER 12 

C *=3 COUNTER HAS HIT LIMITS 13 

C X (2 ) =COUNT ER STORAGE 14 

C X13 ) -CHOOSES METHOD OF CONVERGENCE 15 

C X (4) =THIR3 DEPEND VAR 16 

C XC5 )-THIR3 IND VAR 17 

C X 1 6 ) =SECQND DEPEND VAR 18 

C Xt7>=SECDN3 IND VAR 19 

C X ( 8 ) =FI RST DEPEND VAR 20 

C XC9)=FIRST IND VAR 21 

C X (3 ) MUST BE ZERO UPON FIRST ENTRY TO ROUTINE 22 

Y-O* 23 

IF CANS) 1*2*1 24 

1 DEP-DEPEND-ANS 25 

TQL AN$-TGL*AN$ 25 

GO TO 3 27 

2 DEP-DEPEND 28 

TOL ANS=TOL 29 

3 IF ( AB S (DEP ) -TOLANS) 5*5,4 30 

4 IF (X(2)-AJ) 8*8,7 31 

5 ANEW- A I NO 32 

Xt2>=0. 33 

IC0N=2 34 

RETURN 35 

6 ANEW=Y 36 

xm=xm+i. 37 

ICON-1 38 

RETURN 39 

7 ANEW=Y 40 

X ( 2 ) -0 * 41 

ICON=3 42 

RETURN 43 

8 IF (XC3n 9,9*12 44 

C *** FIRST GUESS USING DIR 45 

9 X( 3 ) -1 • 46 

X ( 8 ) =3EP 47 

X19)=AIND 4B 

IF (AIND) 10*11*10 49 

10 Y=D I R* AINO 50 

GO TO 5 51 

11 Y=D IR 52 

GO TO 6 53 

12 IF t X( 3 ) - 1 • ) 13*13*16 54 

C *** LINEAR GUESS 55 

13 XC3)=2. 56 

X( 6 ) OEP 57 

X ( 7 ) -A IND 58 

IF CXC 31— X(61 1 14*9*14 59 

14 IF U(9)-X(7)) 15,9*15 60 

15 A=M X ( 9 ) -X { 7 ) ) / 1 X ( 8 ) -X ( 6 ) ) 61 

Y=X( 9) -A*X ( 8 ) 62 

IF ( ABS(10.*X(9I)-A8S(Y) ) 9*9*6 63 

C *** QUADRATIC GUESS 64 

16 X ( 4 ) =3EP 65 

X ( 5 ) -AI ND 66 

IF {Xm-XC5)> 18,17,18 67 

17 IF C X ( 6) -X C 4 ) ) 13*9,13 68 

18 IF (X(6)-X(4)) 19,13,19 69 

19 IF (X(9)-X(5>) 23,20*23 70 

20 IF CXC B)~XC4> ) 21*22*21 71 
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21 XI9)=<(7) 72 

X ( 8 ) =X { 6 ) 73 

GO TO 13 74 

22 X ( 9 ) “X C 7) 75 

X ( 8 ) =& ! 6) 75 

X I 3 I “ 1 • 77 

IF ( XI 91) 10,11,10 78 

23 IF ( XI 8)~X(4) ) 24*21 , 24 79 

24 F*(X(5)“XI4) )/(X(7)-X(5) ) 80 

A*CXm-X(4)-F*CX(9)-X(5m/< (X(9)-X<7) )»(X(9)-X(5M) B 1 

B=F-AMX(5)+X(7)) 82 

C=X { 4) *Xf 5)*( A*X(7)-F) 83 

IF (A) 27.25*27 84 

25 IF I B) 26.7,26 85 

26 Y=-C/B 85 

GO TO 47 87 

27 IF IB) 32,28,32 83 

28 IF (C> 30,29,30 89 

29 Y=0. 90 

GO TO 47 91 

30 G=-C/A 92 

IF (G) 7,7,31 93 

31 Y^SQRHG) 94 

YY=-S3RT(G) 95 

GO TO 37 96 

32 IF (C) 34,33,34 97 

33 Y=-B/A 98 

YY-O* 99 

GO TO 37 100 

34 D=4.*A*C/B**2 101 

IF (l.-D) 13,35,36 102 

35 Y=-B/i2.*A> 103 

GO TO 47 104 

36 E=SQRT(1.-D) 105 

Y=(-B/I2.*A) >*U.+EJ 106 

YY=«-8M2,*A))*(U-E) 107 

37 J=4 108 

DEPMIM=ABS(X(4) ) 109 

DO 39 1=6, 8,2 110 

IF ( D5 *MI N-ABS ( X 1 1 ) ) ) 39,39,38 111 

38 J=I 112 

DEPMIV| = ABS(X( I>) 113 

39 CONTINUE 114 

K= J+l 115 

IF f U(K)-Y)»U(K)-YYI) 42,42,40 116 

40 IF < A3S<X(K)-Y>-ABS{X<K>-YY) ) 47,47,41 117 

41 Y=YY 118 

GO TO 47 119 

42 IF ( J-6 ) 43,44,44 120 

43 J J= J+2 121 

KK=K+2 122 

GO TO 45 123 

44 JJ=J-2 124 

KK=K-2 125 

45 SLOPED (X(KK)-X(K))/(X( JJ)-Xt J) ) 126 

IF ISL0PE*X( J)*(X(K)-Y>) 46,46,47 127 

46 Y=YY 128 

47 X C 9 1 =< ( 7 ) 129 

X ( 8 ) =X ( 6 ) 130 

X ( 7 ) =X C 5 ) 131 

X( 6 ) =< ( 4) 132 

GO TO 6 133 

END 134 
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$ ! 8FTC PARABO DECK 

SUBROJ TINE PARABO f X , Y * XD, YANS ) 1 

DIMENSION Xi 3 ) , Y f 3) 2 

A=M (X{ l)~X<2> )>(Y(l)-Y(3n-(X<l)-X( 31 )*( Y(l)-Y<2>) )/( (X(I)-X(2I) *{ 3 

IX{1)»X{3) )*(X(3)-X(2) ) ) 4 

B=( <X( l)**2-xm**2)*(Ym-Y<35 )- i X ( 1 ) **2-X ( 3 ) **2 I * C Y ( I ) -Y ( 2 1 )) / ( C 5 

lX(l)-<{2) )*(X(I)-X(3) )*«X12)-XC3))) 5 

D=(Y(l)*X(2)**2-YC2t*X{I)**2-B*X{2)*XmMX{2)“X(im/(X{2)**2-XQ 7 

I ) **2 ) 8 

YANS = ( 4*XD+B)*XD+D 9 

RETURN 10 

END 11 


SIBFTC OVELAY DECK 

C DUMMY ROUTINE TO RESTORE ALL OF WORKING PROGRAM TO CORE AT 1 TIME 1 

SUBROJTINE GVLAY 2 

X=X 3 

RETURN A* 

END 5 


SIBFTC BLKFAN DECK 

C THIS IS A GENERALIZED FAN MAP FOR UNREALISTIC SUPERSONIC ENGINE 1 

BLOCK DATA 2 


COMMON / 

FAN/CN(15),PR( 15,15), 

WAC(15,15),ETA(15,15) 

, N , NP { 1 5 ) 

3 

DATA Y.NP/10, 6,3*7, 5*10, 8,5*0/ 



4 

DATA CN/Oo 

3, 0.4, 0.5, 0.6, 0.7, 0.8 

,0*9, 1.0,1. 1,1. 2, 5*0. 

/ 

5 

DATA ( PR ( 

1, J) ,WAC( 1 , J ) , ETA C 1 

, J ) , J = 1 , 6)/ 


5 

1 1.03000, 

243.600, 0.75592, 

1* 01200 9 22 9. 800* 

0.76120, 

7 

2 1*02 300, 

199.800, 0.76648, 

1.03840, 166.800, 

0.75592, 

9 

3 1.04480, 

133.200, 0.72512, 

1.04800, 86*400, 

0.64152/ 

9 

DATA (PRt 

2 , J ) , WAC( 2, J), ETAS 2 

,J),J=1, 7)/ 


10 

1 1 « 03000 9 

286.800, 0.75592, 

1.02000, 270.000, 

0.77616, 

11 

2 1.04300, 

253.200, 0.79200, 

1.05840, 233.400, 

0.79728, 

12 

3 1*07520, 

209.400, 0.80256, 

1.09200, 183.600, 

0.77616, 

13 

4 1*10000, 

156.600, 0.74008/ 



14 

DATA ( PR ( 

3, J), MACS 3, J), ETAS 3 

tJ)»J=l, 7)/ 


15 

1 1*00000, 

333.600, 0.75064, 

1.02560, 322.800, 

0*77615, 

16 

2 1*05120, 

310.200, 0.80256, 

1.08000, 291.600, 

0.82808, 

17 

3 1 « li&OOj 

259.800, 0.84392, 

1.13200, 240.000, 

0. 32808, 

18 

4 1.14300, 

213.600, 0.77616/ 



19 

DATA { PRC 

4, J ) , MAC ( 4, J), ETAS 4 

,J),J=1, 7)/ 


20 

1 1*00000, 

383.400, 0.74536, 

1.03680, 376.200, 

0.77616, 

21 

2 1*03300, 

358.200, 0.82808, 

1.12400, 340.200, 

0.85448, 

22 

3 1*15000, 

313.200, 0.88000, 

1.18960, 276.600, 

0.82803, 

23 

4 1*19520, 

266.400, 0.80784/ 



24 

DATA (PRC 

5, J), MACS 5, J), ETAS 5 

,J),J=1,10)/ 


25 

1 1.00000, 

439.800, 0.72512, 

1.06400, 436.800, 

0*77616, 

26 

2 1*11340, 

428.400, 0.82808, 

1.14800, 420.600, 

0.85448, 

27 

3 1*13400, 

406.800, 0.88000, 

1.20960, 393.600, 

0.90112, 

28 

4 1*21760, 

388.200, 0.90376, 

1.22400, 383*400, 

0.90112, 

29 

5 1.24400, 

368*400, 0.88000, 

1*25720, 342*600, 

0.82808/ 

33 
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DATA f PR! 6 

, J),WAC( 

6* J) sETAI 6 

» J ) ? 10} / 


31 

I 

1 « 03300$ 

499.800, 

0.68816, 

1*10000* 

499* 800 ® 

0*77616, 

32 

2 

1*15000* 

493.200, 

0. 82808, 

1 * 20000s* 

485*400® 

0*85448, 

33 

3 

1*22300* 

476.400, 

0.88000, 

1*25520* 

466* 800® 

0*90112, 

34 

4 

1*27200* 

456.600, 

0.91080, 

1*28640* 

448* 200® 

0*90112* 

35 

5 

1 *33240® 

433.200, 

0.88000, 

1*33200* 

406® 800® 

0*82720/ 

36 


DATA ( PRC 7 

,J) , WACC 

7, J ) ,ETA ( 7 

, J»f J=l,10) / 


3? 

1 

1*00000* 

566.400, 

0.64152, 

1* 07600 * 

566® 400® 

0*72512, 

38 

2 

1® 15200* 

566.400, 

0.77616, 

1*21920* 

559® 800 $ 

0*82808, 

39 

3 

1*25000* 

553.200, 

0.85888, 

1*28960* 

544*800* 

0© 88000 $ 

40 

4 

1 « 33120* 

528.600, 

0.90112, 

1*36160* 

509® 400® 

0*88000 ® 

41 

5 

1 » 39120* 

483.600, 

0.82808, 

I * 40000 ® 

474*000® 

0*81752/ 

42 


DATA f PRC 8 

, J),WAC( 

8, J ) , ETA ( 8 

* J ) , J=1 , 10) / 


43 

1 

1*00000* 

633.600, 

0.60016, 

1.04400, 

633.600, 

0*64152 ® 

44 

2 

1 * 13 520 * 

633.600, 

0.72512, 

1.22080, 

633.000, 

0*77616, 

45 

3 

1 » 29440 * 

625.800, 

0. 82808, 

1.34000, 

616.800, 

0® 85888, 

45 

4 

1*40000* 

600.000, 

0. 88000, 

1.42800, 

586. 800, 

0* 85888 9 

4? 

5 

1*44800? 

576.600, 

0.82808, 

1.48000, 

553.200, 

0*78672/ 

48 

DATA CPRi 9 

, J) , WACC 

9, J ) »ETA 1 9 

*J)*J=1»I0)/ 


49 

1 

1.03300, 

700.200, 

0. 56936, 

1*10400® 

700*200® 

0*64152® 

50 

2 

1.22300, 

700.200, 

0.72512, 

1*32400* 

700*200® 

0® 77616 f 

51 

3 

1 . 43000, 

700.200, 

0.80256, 

1 * 44800* 

698*400® 

0*80784, 

52 

4 

1.53000, 

693.600, 

0.80256, 

1 « 53 360® 

683*400® 

0*77616, 

53 

5 

1.55300, 

666.600, 

0.74536, 

1*58400® 

656*400, 

0*72512/ 

54 


DATA IPRI10 

» J)*WACC10*J)*ETAf 10 

t J ) ©J 3 *!® 

8)/ 


55 

1 

1.03000, 

750*000* 

0© 51744* 

1*16320® 

750*000, 

0® 64152 , 

56 

2 

1.31200, 

750*000* 

0*72512* 

1*40000® 

750® 000, 

0*75592® 

57 

3 

1. A3 300, 

750*000* 

0*76120* 

1 * 54000® 

750*000, 

0*75064, 

58 

4 

1.53000, 

749*400* 

0*72512® 

1*66000® 

736© 800, 

0* 64152/ 

59 

END 
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SIBFTC BLKIMT DECK 

C THIS IS A GENERALIZED FAN MAP FOR UNREALISTIC SUPERSONIC ENGINE i 

BLOCK DATA 2 


COMMON / INT 

/ CMC 15 K PR C 15, 151® 

WACI 15,15) 

® E TA ( 15 , 15 3 ® N, NP ( 15 5 

3 

DATA vjjNP/10 

»6f3»7f5^i0,8f5*0/ 





4 

DATA :m/0*3® 

0®4®0®5®0*6®0*7f0©8, 

0*9, 1*0® 

1* 

1, 1*2, 5*0 

*/ 

5 

DATA f PR 1 If 

J 1 ® WACC I® J) ,ETAC 1, 


61/ 


6 

1 1*00000® 

121 © 800® 0*75592, 

1*01800, 


114*900® 

0*76120, 

1 

2 1*04200® 

99*900® 0.76648® 

1 « 05760, 


83. 400 , 

0* 75592 » 

8 

3 1*05720® 

66.600, 0*72512, 

1*07200, 


43*200* 

0*64152/ 

9 

DATA 1 PR t 2# 

J) ,WACC 2® J ) ®ETA i 2® 

J ) f J-l® 

75 

/ 


10 

1 1*00000, 

143*400, 0.75592® 

1*03000® 


135.000, 

0® 77616? 

11 

2 1*05000® 

126*600, 0*79200, 

1.08760, 


116*700, 

0.79728 * 

12 

3 1.11280® 

104*700® 0.80256, 

1*13800® 


91*800, 

0.77616® 

13 

4 1*15000, 

78.300, 0.74008/ 





14 

DATA C PRC 3® 

J ) « WACC 3® J) ,ETAC 3® 

J ) , J-l , 

7)/ 


15 

1 1*00000® 

166*800, 0*75064, 

1*03840® 


161® 400 , 

0.77616, 

16 

2 1*07680® 

155.100, 0*80256® 

1 « 12000, 


145.800, 

0® 82808® 

17 

3 1*17400® 

129*900, 0*84392, 

1*19800® 


120.000, 

0*82808, 

18 

4 1*22200® 

106*800, 0*77616/ 





19 

DATA f PRC 4® 

J ) , WAC C 4, JKETAC 4® 

J ) , J = 1 , 

7 )/ 


20 

1 1*00000® 

191.700® 0*74536® 

1*05520? 


188*100? 

0® 7761 6, 

21 

2 1*13200® 

179*100® 0.82808® 

1*18600® 


170.100, 

0® 85448, 

22 

3 1.24000® 

156*600® 0* 88000® 

1*28440, 


138*300® 

0.82808, 

23 

4 1*29280® 

133*200® 0*80784/ 





24 
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DATA f PRC 

5 * J ) , WAC! 

5tJ)*ETAC 

5,J),J*1,10)/ 


25 

1 

1 « ODOOO f 

219.900* 

0.72512* 

1.09600* 

218.400* 

0.77616* 

25 

2 

1*17760* 

214.200* 

0.82808* 

1.22200, 

210.300, 

0.85448, 

27 

3 

1*27600* 

203.400* 

0.88000* 

1.31440* 

196.800* 

0.90112* 

28 

4 

1 . 32640* 

194.100* 

0.90376* 

1.33600, 

191.700, 

0.90112* 

29 

5 

1*35600* 

184.200* 

0.88000* 

1.40080, 

171.300, 

0.82808/ 

30 


DATA (PRC 

6* J } * WAC ! 

6 * J ) *ETA ! 

6* J ) * J = 1 * 10 ) / 


31 

1 

1 a 03000* 

249.900* 

0.68816, 

1.15000, 

249.900, 

0.77616* 

32 

2 

1 * 24000* 

246.600, 

0.82808, 

1.30000, 

242.700, 

0.85448, 

33 

3 

1.34200* 

238.200* 

0.88000* 

1.38280, 

233.400, 

0.90112* 

34 

4 

1.40300* 

228.300, 

0.91080, 

1.42960, 

224.100, 

0.90112* 

35 

5 

1.45360* 

216.600* 

0.88000, 

1.49800, 

203.400, 

0.82720/ 

36 


DATA f PRC 

7 * J) * WAC ( 

7* J ) ,ETA C 

7,J),J=1,10)/ 


37 

1 

1.00000* 

283.200* 

0.64152* 

1.11400, 

283.200, 

0.72512, 

38 

2 

1.22800* 

283.200* 

0.77616* 

1.32880* 

279.900, 

0.82808* 

39 

3 

1.39000, 

276.600* 

0.85888, 

1.43440, 

272.400, 

0.88000* 

40 

4 

1.49680* 

264.300, 

0.90112, 

1.54240, 

254.700, 

0.88000* 

41 

5 

1.53580* 

241.800* 

0.82808* 

1.60000, 

237.000, 

0.81752/ 

42 


DATA C PRC 

8* J ) *WAC ( 

8,J)*ETAC 

8 * J ) * J~1 * 10)/ 


43 

I 

1.00000, 

316.800* 

0.60016* 

1.06600, 

316.800, 

0.64152* 

44 

2 

1.20280* 

316.800, 

0.72512, 

1.33120, 

316.500, 

0.77616, 

45 

3 

1.44160* 

312.900* 

0.82808, 

1.51000, 

308.400* 

0*85888* 

46 

4 

1.60000* 

300.000, 

0.88000* 

1.64200, 

293.400, 

0.85883* 

47 

5 

1.67200* 

288.300* 

0.82808, 

1.72000, 

276.600, 

0.78672/ 

48 


DATA C PRC 

9 * J ) * WAC { 

9, J ) *ETA ( 

9, J } , J*l, 10 ) / 


49 

i 

1.00000* 

350.100, 

0.56936, 

1.15600, 

350.100, 

0.64152, 

50 

2 

1.33000* 

350.100* 

0.72512* 

1.48600, 

350.100* 

0.77616, 

51 

3 

1.60000* 

350.100* 

0.80256, 

1.67200, 

349.200, 

0.80784, 

52 

4 

1.75000* 

346.800, 

0.80256* 

1.80040, 

341.700, 

0.77616* 

53 

5 

1.85200* 

333.300, 

0.74536, 

1.87600, 

328.200, 

0.72512/ 

54 


DATA (?R(i0tJ)*MAC(10tJ)tETA(10«J)tJ-lt 

8)/ 


55 

1 

1. ODOOO, 

375.000* 

0.51744, 

1.24480, 

375.000, 

0.64152* 

56 

2 

1 . AS 300 , 

375.000, 

0.72512, 

1.60000, 

375.000* 

0.75592* 

57 

3 

1.72000, 

375.000* 

0.76120, 

1.81000, 

375.000* 

0.75064* 

58 

4 

1.87000, 

374.700, 

0.72512, 

1.99000, 

368.400, 

0.64152/ 

59 

END 
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$IBFTC BLKCM P DECK 

C THIS IS GENERALIZED COMP. MAP FOR UNREALISTIC SUPERSONIC ENGINE 1 

BLOCK DATA 2 

COMMON / COMP/CN<15),PRC15,L5),WAC(15,15>,ETA<15,15>,N,NP{15> 3 


DATA M*NP/10 

, 2*6 * 2*8 

,A*10, 2*8, 

5*0/ 



4 

DATA :\J/.562 

, .67 A, .787, .899, 1. 

,i.03A,l. 067,1. 12A,1 

.236,1.292*5*0./ 

5 

DATA C PR{ 

1. 

J ) * WAC f 

1 , J ) *ETA ( 

1*J)»J=1, 

6)/ 


6 

l 1. ODOOO, 


51.000* 

0.59082* 

1.84000* 

50.200, 

0.62178* 

7 

2 2.A2BOO, 


49.500, 

0.64242* 

2.86900, 

48.800* 

0.65274, 

3 

3 3.83500, 


46.700, 

0.67338, 

4.54900, 

44.500, 

0.64242/ 

9 

DATA (PRI 

2, 

J ) * WAC C 

2,J)*ETA( 

2, J ) * J = 1 * 

6)/ 


10 

1 1. ODOOO, 


59.300* 

0.59082* 

1.96600* 

59.300* 

0.64242, 

11 

2 3.09300, 


58.800* 

0.69402* 

3.93300, 

57.900* 

0.72493* 

12 

3 A. 68900, 


56.700* 

0.74562, 

5.52900, 

55.000, 

0.72498/ 

13 

DATA I PRI 

3, 

J I * WAC C 

3* J ) »ETA ( 

3* J ) , J = l* 

8)/ 


14 

1 1.00000, 


70.000, 

0. 58566* 

1.84000* 

70.000* 

0.64242, 

15 

2 2.63000, 


70.000* 

0.68370* 

3.40800, 

69.500* 

0.72498, 

15 

3 A. 52100, 


68.800* 

0.77744* 

5.44500, 

67.900, 

0.79292, 

17 

A 6.31300, 


66.400* 

0.77744* 

6.52300* 

65.700* 

0.76970/ 

18 
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DATA 1 PR f 4, 

J ) , WAC ! 

4, J ) ,ETA f 

4, J ) , J=1 , 

8)/ 


19 

1 

1 • 03 300 $ 

84.800, 

0.58050, 

2.00800, 

84. 800 , 

0*64242, 

20 

2 

3.42900, 

84.800, 

0.72498, 

4.60500, 

84.800, 

0.77744, 

21 

3 

5.59700, 

84.000, 

0.80840, 

6.61400, 

83.300, 

0.8290'*, 

22 

4 

7.53300, 

81.700, 

0.80840, 

7.95800, 

80.500, 

0.79292/ 

23 


DATA (PR< 5, 

J ) , WAC ( 

5,J),ETA( 

5, J ) , J=1 » 10) / 


24 

1 

1.00000, 

101.700, 

0.57190, 

2.51900, 

101.700, 

0.64242, 

25 

2 

3.93200, 

101.700, 

0.72498, 

5.27700, 

101.700, 

0.77744, 

25 

3 

6.43300, 

101.200, 

0.80840, 

7.20200, 

101.000, 

0.83936, 

27 

4 

8 • 00000, 

100.000, 

0.86000, 

8.56700, 

99.500, 

0.83936, 

28 

5 

9.33500, 

98.100, 

0.80840, 

9.59600, 

97.400, 

0.80582/ 

29 


DATA <PR< 6, 

J ) , WAC< 

6, J ) ,ETA ( 

6, J ) , J = 1 , 10) / 


30 

1 

1.00000, 

108.100, 

0.57018, 

2.85500, 

108.100, 

0.64242, 

31 

2 

4.29700, 

108.100, 

0.72498, 

5.61300, 

108.100, 

0.77744, 

32 

3 

6.93500, 

107.600, 

0.80840, 

7.62200, 

107.100, 

0.83936, 

33 

4 

8.5VS00, 

106.700, 

0.86000, 

9.13400, 

106.000, 

0.83936, 

34 

5 

9.92500, 

104.500, 

0.80840, 

10.21900, 

104.000, 

0.80410/ 

35 


DATA (PRt 7, 

J ) , W AC t 

7 , J 1 ,ETA ( 

7, J ) , J=l, 10) / 


36 

1 

1.00000, 

114.500, 

0.55986, 

3.26100, 

114.500, 

0.64242, 

37 

2 

4.73900, 

114.500, 

0.72498, 

6.11700, 

114.500, 

0.77744, 

38 

3 

7.45400, 

114.500, 

0.80840, 

8.30800, 

114.300, 

0.83936, 

39 

4 

9.21800, 

113.600, 

0.84968, 

9.63800, 

113.300, 

0.83936, 

40 

5 

10.51300, 

112.600, 

0.80840, 

10.99600, 

112.400, 

0.79808/ 

41 


DATA { PRC 8, 

J ) , W AC( 

8 , J ) , ET A( 

B, J ) , J=1 , 10) / 


42 

1 

1.00000, 

122.900, 

0.53922, 

1.68600, 

122.900, 

0.57018, 

43 

2 

3.8^900, 

122.900, 

0.64242, 

5.46600, 

122.900, 

0.72498, 

44 

3 

6.85500, 

122.900, 

0.77744, 

8.37100, 

122.900, 

0.80840 , 

45 

4 

8.95500, 

122.600, 

0.82388, 

9.88300, 

122.100, 

0.83936, 

46 

5 

10.91200, 

121.700, 

0.80840, 

11.81500, 

120.700, 

0.77744/ 

47 


DATA IPR< 9, 

J ) * WAC t 

9, J ) , ET A ( 

9, J) , J=l, 

8)/ 


48 

1 

1 . 00000 , 

139.800, 

0.47644, 

4.35300, 

139.800, 

0.60114, 

49 

2 

7.62200, 

139.800, 

0.72498, 

10.21900, 

139.800, 

0.77744, 

50 

3 

11.05900, 

139.800, 

0.78260, 

11.89900, 

139.500, 

0.77744, 

51 

4 

13.15900, 

139.300, 

0.72498, 

13.65600, 

139.000, 

0.69918/ 

52 

DATA ( PR( 10 t 

J).WAC(10,J) »ETA(10» J), J=l. 

8) / 


53 

1 

1.00000, 

146.200, 

0* 46612* 

3.76500, 

146.200, 

0.57018, 

54 

2 

6.43100, 

146.200, 

0.64242, 

9.17600, 

146.200, 

0.72498, 

55 

3 

10.21900, 

146.200, 

0.75078, 

11.47900, 

146.200, 

0.75078, 

56 

4 

12.71100, 

146.200, 

0.72498, 

14.41200, 

146.200, 

0.64242/ 

57 


END 






58 


SIBFTC CMBDT DECK 

BLOCK DATA 1 

COMMON / COMB/PSI115) , DELTU5, 15) , ETA{ 15 , 15 ) ,N,NP(15) 2 

DATA N, NP / 15,15*15 / 3 

DATA PSI/4. 9116, 9.8232,14.735,19.6*6,24.558,29.470,34.381, % 

139. 293, 44. 207, 73. 674,100., 200., 300., 400., 500,/ 5 

DATA DELT/ 15*200., 15*300., 15*400., 15*500., 15*600., 15*700. ,15*800., 6 

115*903., 15*1000., 15* 1100., 15*1200., 15*1300., 15*1400., 15* 1500., 7 

215*1633./ 8 

DATA ETA/ 9 

1.600.. 726.. 777.. 806. . 826 . . 843. . 855. .865 . 7*. 870 , 10 

2. 758.. 825.. 858.. 875. . 888 .. 898. . 906. . 912. . 914.6*. 915, 11 

3.86 8,. 393,. 911,. 925,. 935, .942,. 947,. 951, 7*. 953, 12 

4. 925.. 936,. 946,. 955, .963,. 969,. 974,. 977,. 978, 6*. 979, 13 

5. 960. . 966. .972. .977. . 982 . . 985. . 990. . 992. . 993 .6*. 995 , 14 

6.988.. 991,. 992,. 994, . 995 997, .998, 8* . 999, 15 

78*1. 03, 7*. 999, 120*1.00/ 16 

END 17 
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SIBFTC HPTDAT DECK 
BLOCK DATA 

COMMON! / HTURB/TF Ft l5)?CNfl5?l5)?DHC15®X5l?ETAtl5#15$#N?NP{15) 
DATA N| s MP/10f9*15®12f5*0/ 


DATA r FF / 

39.670, 

42,990, 47.460, 

48* 610# 

49.175, 

1 

49.500, 

50.000, 

50.425, 50.920, 

51® 575 $ 

5*0. / 

DATA IZM 1? 

J) »DH( 1, 

J ) » ETA { i» J) , J=l*15) / 



1 

0® l B72 ? 

0.0032, 

0.6219, 0.3372, 

0*0057? 

0 ® 7 0 7 8 1 

2 

0*5156® 

0.0084, 

0.7868, 0.7128, 

0*0108# 

0* 8090 1 

3 

0*9382? 

0.0133, 

0.8090, 1.1442, 

0*0152# 

0® 7963 1 

4 

1*3138# 

0 © 0164t 

0.7779, 1.5382, 

0*0174# 

0® 7422 1 

5 

1 » 7 264? 

0*0179# 

0.7078, 1.9324, 

0*0176? 

0*7635 

6 

2*1500? 

0® 0167# 

0.6068, 2.4058, 

0 * 0144 # 

0*5309, 

7 

2*5 892 » 

0® 0120# 

0.4773, 2.7862, 

0*0082? 

0* 4045. 

8 

2*9460? 

0® 0034# 

0.3034/ 



DATA iZUi 2# 

JhDHi 2# 

J),ETA( 2, J) * J = l» 15 )/ 



1 

0.1872, 

0© 0038? 

0.6068, 0.3942, 

0*0080# 

0*7078 

2 

0.5914, 

0*0113# 

0.8090, 0.7128, 

0*0136? 

0*8292 

3 

0.3442, 

0*0156? 

0.8363, 0.9804, 

0*0176# 

0*8393 

4 

1.1368, 

0*0192# 

0.8368. 1.2754, 

0*0212? 

0*8302 

5 

1.4450, 

0* 0228# 

0.8254, 1.7068, 

0*0248# 

0*8090 

6 

1.3596, 

0®0260® 

0.7696, 2.2706, 

0*0261 $ 

0*7078 

7 

2.5370, 

0® 0241# 

0.6068, 3.0960, 

0*0188# 

0*5056 

8 

3.3774, 

0*0128? 

0.4197/ 



DATA ( CNC 3? 

JJsDHI 3# 

J ) , ETA 5 3, J), J = l»15)/ 



1 

0*1372# 

0*0046# 

0.5764, 0.4362, 

0*0100? 

0*7078 

2 

0*6568? 

0® 0144# 

0.8090, 0.B726, 

0*0184? 

0*8494 

3 

1*3696? 

0*0216# 

0.8543, 1.2382, 

0*0240# 

0*8515 

4 

1 * 4638 ? 

0 © 0268? 

0.8494, 1.6882, 

0*0292# 

0*8409 

5 

1® 9696# 

0*0316# 

0.8262, 2.2138, 

0*0331? 

0*8090 

6 

2*5520? 

0*0344# 

-0 .7579, 2.8050, 

0*0346? 

0*7078 

7 

3*3 392 1 

0*0340# 

0.6652, 3.2648, 

0*0324? 

0*6068 

8 

3*3774? 

0*0312# 

0.5865/ 




DATA C CM f 4?J1?DHt 4* J)*ETAI J = 1J5}/ 

1 0© 1 372 1 0*0052? 0*5643? 0*2550? 0*0068? 0*6068? 

2 0*4784? 0*0120? 0*7078? 0*6942? 0*0164? 0*8090? 

3 0*9148? 0*0204? 0*8494? 1*1442? 0*0244? 0*8596? 

4 1© 3 382 ? 0*0280? 0*8596? 1*5618? 0«0304? 0*8575? 

5 1*3310? 0*0336? 0*8535? 1*9794? 0*0356? 0*8494? 

6 2*2794? 0*0388? 0*8363? 2*5138? 0*0412? 0*8262? 

7 2*3334? 0*0441? 0*8090? 3*1422? 0*0472? 0*7797? 

8 3*3774? 0*0494? 0*7584/ 

DATA C CN! 5? J!?DHC 5? J>?ETAf 5? J I ? J*l* 15 I / 

1 0*1872? 0*0056? 0*5562? 0*3000? 0*0088? 0*6068? 

2 0*5254? 0*0144# 0*7078? 0*7500? 0*0192? 0*8090? 

3 0,9754? 0*0236? 0*8494? 1*2754? 0*0288? 0*8697? 

4 1*4824# 0®0321 ? 0*8696? 1*7638? 0*0360? 0*8662? 

5 2 © 0 450# 0*0400? 0*8615? 2*3362* 0*0444? 0*8555? 

6 2*5450# 0© 0496? 0*8520? 2*8706? 0*0540? 0*8494? 

7 3® 3764? 0*0596? 0*8494? 3*1520? 0®0640? 0*8532? 

8 3*1618? 0*0661 ? 0*8570/ 

DATA C CM! 6# JKDHC 6? J ) ? ETA I 6? J 1 * J*1 ? 15 ) / 

1 0® 1 372 ? 0*0068? 0*5309? 0® 3568* 0*0120? 0*6068# 

2 0*5196# 0© 0192? 0*7078? 0*8628? 0*0252? 0*8090? 

3 1*3932# 0*0300? 0*8494? 1® 2852# 0*0340? 0®8697 # 

4 1*5010? 0*0384? 0*8819? 1*6882? 0*0421? 0*8899? 

5 1*9138? 0*0472# 0*8940# 2*1246# 0*0524# 0*8969? 

6 2*2706? 0 « 0564? 0*8975? 2*4226? 0*0612? 0*8976? 

7 2*4950? 0*0640? 0*8968? 2*5372? 0*0668? 0*8937? 

8 2*5558? 0® 0698# 0*8896/ 


1 

2 

3 

4 

5 

6 
? 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 
23 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 
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DATA ( CNC 7* 

J 5 , DH C 7, 

J ) , ETA ( 7, 

J 1 , J“1 , 15 ) / 



60 

1 

0* I 872* 

0.0080, 

0.5062, 

0.4314, 

0.0164, 

0.6068, 

61 

2 

0.6844, 

0.0236, 

0.7078, 

0.9568, 

0.0308, 

0.8090, 

62 

3 

1*2010* 

0.0372, 

0.8494, 

1.3834, 

0.0416, 

0.8697, 

63 

4 

1.5108, 

0.0448, 

0.8797, 

1.6186, 

0.0476, 

0.8899, 

64 

5 

1.7*50, 

0.0510, 

0.8954, 

1.8618, 

0.0544, 

0.9000, 

65 

6 

1.9558, 

0.0576, 

0.9010, 

2.0000, 

0.0600, 

0.9000, 

66 

7 

2.0450, 

0.0624, 

0.8980, 

2.0824, 

0.0660, 

0.8925, 

67 

8 

2.1010, 

0.0700, 

0.8793/ 




5B 

DATA ICN< 8, 

J i , DH( 8, 

J ) , ET A t 8, 

J ) , J*lt 15 ) / 



69 

1 

0.1872, 

0.0088, 

0.5051, 

0.4834, 

0.0196, 

0.6068, 

70 

2 

0.7314* 

0.0272, 

0.7078, 

0.8814, 

0 . 03 16, 

0.7665, 

71 

3 

1.0226, 

0.0356, 

0.8090, 

1.1442* 

0.0392, 

0.8292, 

72 

4 

1.2804, 

0.0432, 

0.8494, 

1.3696, 

0.0460, 

0.8596, 

73 

5 

1.4638, 

0.0488, 

0.8697, 

1.5950, 

0.0528, 

0.8808, 

74 

6 

1.6746, 

0.0560, 

0.8848, 

i. 7450, 

0.0596, 

0.8848, 

75 

7 

1.3010, 

0.0640, 

0.8788* 

1.8156, 

0.0664, 

0.8697, 

76 

8 

1.3196, 

0.0693, 

0.8590/ 




77 

DATA iZHi 9 , 

J ) ,DH< 9* 

J ) , ETA< 9, 

J),J=1,15)/ 



78 

1 

0.1872, 

0.0093, 

0.4909, 

0.3372, 

0.0159, 

0.5380, 

79 

2 

0.5344, 

0.0232, 

0.6068, 

0.6754, 

0. 0284, 

0.6573, 

80 

3 

0.8068, 

0.0330, 

0.7078, 

0.9196, 

0.0368, 

0.7463, 

81 

4 

1.0128, 

0.0400, 

0.7776, 

1.1254, 

0.0442, 

0.8090, 

82 

5 

1.2196, 

0.0480, 

0.8191, 

1.3138, 

0.0524, 

0.8302, 

83 

6 

1.3696, 

0.0556, 

0.8347, 

1.4068, 

0.0580, 

0.8363, 

84 

7 

1.4450, 

0.0612, 

0.8322, 

1.4638, 

0.0640, 

0.8241, 

85 

8 

1.4676, 

0 . 0668* 

0.8090/ 




86 


DATA (CNflO, 

J),DH CIO, 

J ) , ET A( 10, 

J 1 » J=X, 12 )/ 



87 

1 

0.1872, 

0.0132, 

0.4257, 

0.2814, 

0.0180, 

0.4747, 

88 

2 

0.3804, 

0.0228, 

0.5056, 

0.4686, 

0.0268, 

0.5359, 

89 

3 

0.5628, 

0.0314, 

0.5683, 

0.6382, 

0.0352, 

0.5941, 

90 

4 

0.6892, 

0.0380, 

0.6068, 

0.7362, 

0.0412, 

0.6178, 

91 

5 

0.7696, 

0.0440, 

0.6240, 

0.8068, 

0.0476, 

0.6310, 

92 

6 

0.8254, 

0.0504, 

0.6265, 

0.8304, 

0.0530, 

0.6118/ 

93 


END 






94 


$ I BFTC 

IPTDAT DECK 







BLOCK DATA 






1 

COMMOVI / ITURB / TFF ( 15) ,CNl 15, 

15) ,3H(15,15) ,ETA(15, 

15)»N,NPQ5) 

2 


DATA M , NP/ 11 

,9*15,12, 

9,4*0/ 




3 


DATA r FF / 

70.776, 

82.236, 

93.468, 

103.464, 

112.836, 

4 

1 

116*580, 

120.000, 

122.676, 

125.124, 

127.824, 

130.536,4*0./ 

5 


DATA tCN! It 

J ) , DHC I, 

J ) , ETA C 1, 

J) , J=l, 15 ) / 



6 

1 

0.3522, 

0.0016, 

0.7120, 

0.5104, 

0.0023, 

0.7300, 

7 

2 

0.7044, 

0.0031, 

0.7472, 

0.9330, 

0.0038, 

0.7300, 

8 

3 

1.L618, 

0.0045, 

0.7140, 

1.3556, 

0.0049, 

0.7000, 

9 

4 

1.5497, 

0.0052, 

0.6850, 

1.6905, 

0.0054, 

0.6730, 

ID 

5 

1.9367, 

0.0055, 

0.6452, 

2.1835, 

0.0054, 

0.6200, 

11 

6 

2.3593, 

0.0051, 

0.6000, 

2.5001, 

0.0047, 

0.5750, 

12 

7 

2.6941, 

0.0038, 

0.5310, 

2.8175, 

0.0031, 

0.5000, 

13 

8 

3.1698, 

0.0001, 

0.3850/ 




14 


DATA ICN( 2, 

J ) , DH( 2, 

J ) , ET A ( 2, 

J ) , J-l, 15 ) / 



15 

1 

0.3522, 

0.0023, 

0.8000, 

0.5278, 

0.0035, 

0.8100, 

15 

2 

0.7575, 

0.0047, 

0.8200, 

1.0208, 

0* 0061 « 

0.8300, 

17 

3 

1.2322, 

0.0070, 

0.8300, 

1.3818, 

0.0076, 

0.8290, 

18 

4 

1.5201, 

0.0084, 

0.8100, 

1.8130, 

0.0089, 

0.8000, 

19 

5 

1.9723, 

0.0092, 

0.7850, 

2.1305, 

0.0094, 

0.7600, 

20 

6 

2.2715, 

0.0095, 

0.7450, 

2.5089, 

0.0093, 

0.7000, 

21 

7 

2.7471, 

0.0089, 

0.6800, 

2.9227, 

0.0083, 

0.6450, 

22 

8 

3.1698, 

0.0068, 

0.5900/ 




23 


123 



DATA iZ Ml 3# 

JKDH( 3, 

J ) , ETA( 3,J),J=1.15>/ 



24 

i 

0® 3 522 t 

0.0027, 

0.8000, 0.5654, 

0* 0045 ? 

0.8300, 

25 

2 

0 • 3279? 

0*0063, 

0.8600, 1.0296, 

0*0076, 

0*8633# 

26 

3 

1.1 975 « 

0.0087, 

0.8670, 1.3730, 

0*0098# 

0*8700# 

27 

4 

1*5497, 

0.0107, 

0.8720, 1.7609, 

0*0118# 

0.8720, 

20 

5 

1*2 367* 

0*0126, 

0.8700, 2.1479, 

0.0134, 

0.8670# 

29 

6 

2*3245, 

0.0139, 

0.8600, 2.4827, 

0*0142, 

0.8503, 

30 

7 

2*3583, 

0.0146, 

0.8300, 2.9227, 

0.0147# 

0.8000# 

31 

8 

3.1598, 

0.0145, 

0.7600/ 



32 

DATA < 4, 

J ) # DH( 4, 

J > , ETA ( 4»J)»J = 1*15)/ 



33 

1 

0«3522 , 

0.0029, 

0.7995, 0.4052, 

0*0034, 

0.8000, 

34 

2 

0*5514, 

0.0054, 

0.8400, 0.8452, 

0.0069# 

0.8600, 

35 

3 

1 * 3 567 , 

0.0084, 

0.8680, 1.2322, 

0.0097# 

0.8730# 

36 

4 

1 « 4434, 

0*0111, 

0.8800, 1.6722, 

0.0124, 

0*8830, 

37 

5 

1*9540, 

0.0140, 

0.8835, 2.1131, 

0.0146, 

0.8830, 

3B 

6 

2*2715, 

0*0153, 

0.8800, 2.4915, 

0.0161# 

0.8740, 

39 

7 

2*7471, 

0*0168, 

0.8600, 2.9931, 

0.0172# 

0.8350# 

40 

8 

3*1598, 

0.0173, 

0.8200/ 



41 

DATA ( CN{ 5, 

J),DH( 5, 

J ) , ETA { 5,J),J=1,15>/ 



42 

1 

0*3522, 

0.0031, 

0.7750, 0.4844, 

0.0043# 

0.8000, 

43 

2 

0* 7D44, 

0.0062, 

0.8480, 0.9330, 

0.0081, 

0.3600, 

44 

3 

1*2322, 

0.0105, 

0.8750, 1.4967, 

0.0124, 

0.8900, 

4? 

4 

1*5548, 

0.0136, 

0.8912, 1.8834, 

0*0152# 

0.8940# 

46 

5 

2*3371, 

0.0159, 

0.8955, 2.1652, 

0.0159, 

0.8970, 

47 

6 

2.3274, 

0.0178, 

0.8961, 2.5531, 

0.0189, 

0.8900# 

43 

7 

2*8175, 

0.0199, 

0.8790, 3.0461, 

0.0207, 

0.8671, 

49 

8 

3*1598, 

0.0210, 

0.8600/ 



50 

DATA { CN< 6, 

i J ) , DH ( 6, 

J ) * ETA ( 6, J ) » J=1 , 15 ) / 



51 

1 

0*3522, 

0.0034, 

0.7600, 0.5896, 

0.0057# 

0.8000, 

52 

2 

0*8008, 

0.0076, 

0.8450, 1.0567, 

0.0100, 

0.8600, 

53 

3 

1*2322, 

0.0114, 

0.8730, 1.4619, 

0.0134# 

0.8900# 

5% 

4 

1.3722, 

0.0150, 

0.8950, 1.8660, 

0.0165, 

0.9000, 

55 

5 

2*1171, 

0.0184, 

0.9005, 2.3245, 

0.0199, 

0.9010, 

56 

6 

2*5357, 

0.0214, 

0.9004, 2.7375, 

0.0228# 

0.9000, 

57 

7 

3*3319, 

0.0251, 

0.8900, 3.1167, 

0.0267# 

0.3800# 

58 

8 

3.1598, 

0.0280, 

0.8735/ 



59 

DATA (CMC 7 

, J ) , DH{ 7, 

i J ) , ETA ( 7»J),J = 1,15>/ 



60 

1 

0.3522, 

0*0038, 

0.7310, 0.7392, 

0.0078, 

0.8000, 

61 

2 

0*9689, 

0*0101, 

0.8300, 1.2109, 

0.0124, 

0.8600, 

62 

3 

1*4089, 

0.0142, 

0.8750, 1.6056, 

0.0159, 

0.8900, 

63 

4 

1.7609, 

0.0173, 

0.8930, 1.9367, 

0.0190# 

0.8975# 

64 

5 

2.3948, 

0.0207, 

0.8999, 2.2000, 

0.0220, 

0.9000, 

65 

6 

2.2889, 

0.0233, 

0.8980, 2.3949, 

0.0250# 

0.8937# 

66 

7 

2*4471, 

0.0261, 

0.8900, 2.5001, 

0.0276, 

0.8799, 

67 

8 

2*5175, 

0.0290, 

0.8710/ 



68 

DATA iZHi 8 

# J ) « DH ( 8 i 

r J ) , ETA ( 8»J)»J = 1,15)/ 



69 

1 

0.3522, 

0.0042, 

0.7100, 0.5808, 

0.0069# 

0.7450, 

70 

2 

0.7575, 

0.0090, 

0.7680, 0.9330, 

0.0109, 

0.8000, 

71 

3 

1.1901, 

0.0135, 

0.8380, 1.3915, 

0.0156# 

0.8600# 

72 

4 

1*5671, 

0*0177, 

0.8712, 1.7609, 

0.0199, 

0.8780, 

73 

5 

1.8660, 

0.0213, 

0.8800, 1.9897, 

0.0230, 

0.8775, 

74 

6 

2.3601, 

0.0241, 

0.8760, 2.1131, 

0.0251, 

0.8722, 

75 

7 

2.1652, 

0.0263, 

0.8660, 2.2009, 

0.0276# 

0.8600# 

76 

8 

2.2348, 

0*0283, 

0.8480/ 



77 

DATA [ZHl 9 

, J ) » DH( 9 1 

, J),ETA( 9,J), J = l,15)/ 



78 

1 

0.3522, 

0.0047, 

0.6780, 0.5278, 

0.0070, 

0.7000, 

79 

2 

0.5340, 

0.0084, 

0.7125, 0.7922, 

0.0104# 

0.7350# 

83 

3 

0.3S89, 

0.0124, 

0.7690, 1.1183, 

0.0141, 

0.8000# 

Bi 

4 

1.1301, 

0.0148, 

0.8060, 1.3209, 

0.0166, 

0.8225, 

82 

5 

1.4519, 

0.0184, 

0.8395, 1.5497, 

0.0196# 

0.8450# 

83 

6 

1.5722, 

0*0214, 

0.8470, 1.7609, 

0.0232# 

0.8445# 

84 

7 

1.3130, 

0.0245, 

0.8330, 1.8315, 

0.0255# 

0.8235# 

85 

8 

1.3401, 

0.0267, 

0.8080/ 



86 


124 



DATA (-CNC 10, J) tDHdOt J)t ETAC 10 f J1 1 J*lt 12) / 

1 0« 3 5 22 ? 0 « 0054? 0.6380* 0.4574* 0-0069* 9,6550? 

2 0,5167? 0,0092? 0,6700? 0,7218? 0,0107? 0,6850? 

3 0,3279? 0,0123? 0,7000? 0,9330? 0,0138? 0,7110? 

4 1,0567? 0,0159? 0.7180? 1,1493? 0.0177, 0,7180? 

5 1,21^8 ? 0,0191? 0.7170? 1,2505? 0,0202? 0.7140? 

6 1,2784? 0,0214? 0.7000? 1.2824? 0.0221? 0.5890/ 

DATA l CN( 1 It J I ? DH { 11 1 J ) ? ET A ( 11?J)?J S 1? 9)/ 

1 0,3522? 0,0061? 0.6000? 0,4226? 0,0075? 0,6000? 

2 0.5278? 0.0093? 0.6120? 0.6167? 0.0108? 0.6170? 

3 0.044? 0.0124? 0,6210? 0.7922? 0.0140, 0.5253? 

4 0.3452? 0.0151? 0.6250? 0.8983? 0.0164? 0.6230? 

5 0.9293? 0.0177? 0.6009/ 

END 


87 

88 

89 

90 

91 

92 

93 

94 

95 
95 

97 

98 

99 
100 


$ IBFTC LPTD^T DECK 

COMMON 3 / T LTURB/TFE( 15 ) ?CN( 15? 151? DH( 15? 15) , ETA (15? 15) ?N, NP(15) 
DATA M?NP/li?9*15?12?9?4*0/ 

DATA T FF / 88.470? 102.795? 116.835, 129.330, 141.045, 

1 145.725? 150.000? 153.345? 156.405? 159,780? 163. 170 ? 4# 0. / 

DATA CCNf 1 ? J ) ? DH{ 1?J)?ETA< 1 , J ) ? J = 1 » 15 ) / 

1 0.3582? 0.0018? 0.7120? 0.5336, 0.0026? 0.7300? 

2 0.7365? 0.0035? 0.7472? 0.9754? 0.0044? 0.7300? 

3 1.2146? 0.0051? 0.7140? 1.4173? 0.0056? 0.7000? 

4 1.5201? 0.0059? 0.6850, 1.7673, 0.0061? 0.6730? 

5 2.3247? 0.0062? 0.6452? 2.2827? 0.0061? 0. 6200? 

6 2.4665? 0.0057? 0.6000? 2.6137? 0.0053, 0.5750? 

7 2.3166? 0.0044? 0.5310? 2.9456? 0.0035? 0.5000? 


8 

3.3138? 

0.0001? 

0.3850/ 



DATA CINl 2* 

J ) ? DH( 2? 

J ) * ET A ( 2, J ) » J = l» 15 ) / 



1 

0.3682? 

0.0026, 

0.8000, 0.5518, 

0.0039, 

0.8100, 

2 

0.7919? 

0.0054? 

0.8200, 1.0672, 

0.0069, 

0.8300, 

3 

1.2882? 

0.0080? 

0.8300, 1.4446, 

0.0087, 

0.8290, 

4 

1.5937? 

0.0096? 

0.8100, 1.8954, 

0.0101, 

0.8000, 

5 

2.0519? 

0.0104? 

0.7850, 2.2273, 

0.0107, 

0.7600, 

6 

2.3747? 

0.0108? 

0.7450, 2.6229, 

0.0106, 

0.7000, 

7 

2.3720? 

0.0101? 

0.6800, 3.0555, 

0.0094, 

0.6450, 

8 

3.3138? 

0.0077? 

0.5900/ 



DATA tCN( 3, 

J ) ? DH f 3, 

J ) , ETA ( 3»J) »J=1,15)/ 



1 

0.3682? 

0.0031, 

0.8000, 0.5911, 

0.0051, 

0.8300, 

2 

0.3555? 

0.0071, 

0.8600, 1.0764, 

0.0087, 

0.8630, 

3 

1.2319? 

0.0099? 

0.8670, 1.4354, 

0.0111, 

0.8700, 

4 

1.5201? 

0.0122? 

0.8720, 1.8409, 

0.0134, 

0.8720, 

5 

2.0247? 

0,0143? 

0.8700, 2.2455, 

0.0152, 

0.8670, 

6 

2.4302, 

0.0157? 

0.8600, 2.5956, 

0.0162, 

0.8500, 

7 

2.7791? 

0 . 0166? 

0.8300, 3.0555, 

0.0167, 

0.8000, 

8 

3.3138? 

0.0164? 

0.7600/ 



DATA C -Nt 4, 

} J ) ? DH ( 4, 

J),ETA( 4, J) , J=l*15)/ 



1 

0.3582, 

0.0033? 

0.7995, 0.4237, 

0.0038, 

0.3000, 

2 

0.5310, 

0.0061? 

0.8400, 0.8837, 

0.0078, 

0.8600, 

3 

1.1047, 

0.0096? 

0.8680, 1.2882, 

0.0110, 

0.8730, 

4 

1.5090, 

0.0126, 

0.8800, 1.7482, 

0.0141, 

0.8830, 

5 

2.3429, 

0.0159, 

0.8835, 2.2091, 

0.0166, 

0.8830, 

6 

2.3747, 

0.0174? 

0.8800, 2.6047, 

0.0183, 

0.8740, 

7 

2.3720, 

0.0191? 

0.8600, 3.1291, 

0.0195, 

0.8350, 

8 

3.3138, 

0.0197? 

0.8200/ 




1 

2 

3 

4 

5 

6 
7 
3 
9 

10 

11 

12 

13 

14 
i 5 

15 

17 

18 

19 

20 
21 
22 

23 

24 

25 
25 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 
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DATA ( CNl 5 9 

J ) , DH { 5,J!,£TA( 5, 

J) 

, J *1, 15 ) / 



42 

1 

0.3582, 

0.0036, 0.7750, 


0.5065, 

0.0049, 

0.8000, 

43 

2 

0.7365, 

0.0071, 0.8480, 


0.9754, 

0.0092, 

0.8600, 

44 

3 

1.2082, 

0.0119, 0.8750, 


1.5647, 

0.0141, 

0.8900, 

45 

4 

1.7301, 

0.0155, 0.8912, 


1.9690, 

0.0172, 

0.8940, 

46 

5 

2.3983, 

0.0181, 0.8955, 


2.2637, 

0.0192, 

0.8970, 

47 

6 

2.4332, 

0.0202, 0.8961, 


2.6691, 

0.0214, 

0.8900, 

48 

7 

2.9456, 

0.0226, 0.8790, 


3.1846, 

0.0235, 

0.8671, 

49 

8 

3.3138, 

0.0239, 0.8600/ 





50 

DATA [ZH ( 6 , 

J ) , DH ( 6 , J ) , ETA{ 6 , 

J ) 

, J- 1, 15 ) / 



51 

1 

0.3682, 

0.0038, 0.7600, 


0.6164, 

0.0064, 

0.8000, 

52 

2 

0.3372, 

0.0087, 0.8450, 


1.1047, 

0.0113, 

0.8600, 

53 

3 

1.2382, 

0.0130, 0.8730, 


1.5283, 

0.0152, 

0.8900, 

54 

4 

1.7482, 

0.0171, 0.8950, 


1.9509, 

0.0187, 

0.9000, 

55 

5 

2.2133, 

0.0209, 0.9005, 


2.4302, 

0.0226, 

0.9010, 

56 

6 

2.6510, 

0.0244, 0.9004, 


2.8619, 

0.0259, 

0.9000, 

57 

7 

3.L384, 

0.0286, 0.8900, 


3.2584, 

0.0303, 

0.8800, 

53 

8 

3.3138, 

0.0319, 0.8735/ 





59 

DATA iZHi 7, 

J ) , DHi 7 y J ) , ETA ( 7, 

J) 

, Jsl,15)7 



60 

1 

0.3582, 

0.0044, 0.7310, 


0.7728, 

0.0089, 

0.8000, 

61 

2 

1.3129, 

0.0115, 0.8300, 


1.2659, 

0.0141, 

0.8600, 

62 

3 

l.'+729, 

0.0162, 0.8750, 


1.6785, 

0.0181, 

0.8900, 

63 

4 

1.3M39, 

0.0197, 0.8930, 


2.0247, 

0.0216, 

0.8975, 

6 ^ 

5 

2.1901, 

0.0235, 0.8999, 


2.3000, 

0.0250, 

0.9000, 

65 

6 

2.3929, 

0.0265, 0.8980, 


2.5038, 

0.0284, 

0.8937, 

66 

7 

2.5583, 

0.0296, 0.8900, 


2.6137, 

0.0314, 

0.8799, 

67 

8 

2.5319, 

0.0329, 0.8710/ 





68 

DATA ( 0N( 8 , 

J ) , DHC 3 , J ) , ET A ( 8 , 

J ) 

, J=l, 15 ) / 



69 

I 

0.3682, 

0.0048, 0.7100, 


0.6072, 

0.0078, 

0.7450, 

70 

2 

0.7919, 

0.0102, 0.7680, 


0.9754, 

0.0124, 

0.8000, 

71 

3 

1.2337, 

0.0153, 0.8380, 


1.4548, 

0.0177, 

0.8600, 

72 

4 

1.5383, 

0.0201, 0.8712, 


1.8409, 

0.0226, 

0.8780, 

73 

5 

1.9509, 

0.0242, 0.8800, 


2.0801, 

0.0261, 

0.8775, 

74 

6 

2.1537, 

0.0274, 0.8760, 


2.2091, 

0.0285, 

0.8722, 

75 

7 

2.2537, 

0.0299, 0.8660, 


2.3009, 

0.0314, 

0.8600, 

75 

8 

2. 3351, 

0.0321, 0.8480/ 





77 


DATA iZHi 9, 

J),DH( 9 , J ) , ETA ( 9, 

J) 

, J*l»15)/ 



78 

1 

0.3582, 

0.0054, 0.6780, 


0.5518, 

0.0080, 

0.7000, 

79 

2 

0.5529, 

0.0096, 0.7125, 


0.8282, 

0.0119, 

0.7350, 

80 

3 

1.3129, 

0.0141, 0.7690, 


1.1691, 

0.0160, 

0.8000, 

81 

4 

1.2337, 

0.0169, 0.8060, 


1.3809, 

0.0188, 

0.8225, 

82 

5 

1.5283, 

0.0209, 0.8395, 


1.6201, 

0.0223, 

0.8450, 

83 

6 

1.7482, 

0.0244, 0.8470, 


1 • 8409, 

0.0263, 

0.8445, 


7 

1.3954, 

0.0279, 0.8330, 


1.9147, 

0.0289, 

0.8235, 

85 

8 

1.9237, 

0.0303, 0.8080/ 





86 


DATA ( CN ( 10, 

J) 9 DH(10,J),ETA(i0, 

J) 

, J=l, 12 >/ 



87 

1 

0.3582, 

0.0061, 0.6380, 


0.4782, 

0.0078, 

0.6550, 

88 

2 

0.5447, 

0.0104, 0.6700, 


0.7546, 

0 . 0122 , 

0.6850, 

89 

3 

0.3555, 

0.0139, 0.7000, 


0.9754, 

0.0157, 

0.7110, 

90 

4 

1.1347, 

0.0181, 0.7180, 


1.2015, 

0.0201, 

0.7180, 

91 

5 

1.2701, 

0.0217, 0.7170, 


1.3073, 

0.0230, 

0.7140, 

92 

6 

1.3365, 

0.0244, 0.7000, 


1.3407, 

0.0251, 

0.6890/ 

93 


DATA ( CM( 11, 

J),DH(ll,J) 9 ETA(ll, 

J) 

i f J*lf 9)/ 



94 

1 

0.3582, 

0.0069, 0.6000, 


0.4418, 

0.0086, 

0.6000, 

95 

2 

0.5518, 

0.0106, 0.6120, 


0.6447, 

0.0123, 

0.6170, 

96 

3 

0.7365, 

0.0141, 0.6210, 


0.8282, 

0.0159, 

0.6253, 

97 

4 

0.3337, 

0.0172, 0.6250, 


0.9391, 

0.0186, 

0.6230, 

98 

5 

0.9715, 

0.0201, 0.6009/ 





99 


END 






100 
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$IBFTC ABETTA DECK 

SUBROJTINE ETAAB (FAR.EM6, P6 , ETA , ETA AOS, ET AASV , P60S , P6DSAV, AM6DS , A 1 

1M6DSV, IDES»FAR7DS»FAR7SV ) 2 

DIMENSION FART(25),ETABRT(25),EM6T< 7),DELM6(7) ,P6T(14),0ELP6(14) 3 

DIMENSION X l 3 ) » Y I 3) 4 

DATA FART/.0390, .0585, .0732, .0878, .0976, .1171,. 1268,. 1463,. 1619, 5 

1.183 A, . 1951, .2195, .2439, .2927, .3415* *4146,. 4634, .5366, .6341,. 7317, 6 

2.8293. . 9268.1.000.1.0634.1.7/ 7 

DATA ETABRT/. 9400,. 9 887, i. 01 93, 1. 0306, 1 . 0227 ,. 9672 9377 9207, 3 

1.9354. . 9626.. 9773. 1.0 193. 1.0532. 1.077. 1.0781.1. 077. 1.0747. 1.0663, 9 

21.0573.1.0510.1.0374. 1.0192. 1. 00. . 9626. . 91 51 / 10 

DATA EM6T/ 1.00, 1.071, 1.190,1.309,1.428,1.547,1.666/ 11 

DATA DELM6/0., .013, .041, .073, . 110, . 147, . 187/ 12 

DATA S 6T/. 220, .2267, .250, .300, .3333, .3767, .4167, .500, .5833, .6667, 13 

1.75. . 8333. .9167. 1.0/ 14 

DATA 3ELP6/-. 142, -.125, -.10, -.075, -.062, -.05, -.041, -.027, -.019, 15 

1-.013, -.008, -.004, -.0021,0./ 16 

IF ! I3ES.NE.1) GO T3 5 17 

DO 1 <=1,25 18 

1 ET ABRT I K ) =ET ABRT I K )* ETAADS/ETAASV 19 

DO 2 < = 1 » 25 20 

2 FART (<) =F ART ( K ) *FAR7DS/FAR7SV 21 

DO 3 <=1,7 22 

3 EM6TK )=EM6T(K)*AM6DS/AM6DSV 23 

DO 4 1=1,14 24 

4 P6T ( M) =P6TIM)*P6DS/P6DSAV 25 

ETAASY=ET AADS 26 

P6DS A/ =P6DS 27 

FAR7S/=FAR7DS 28 

AM6DS/* AM6DS 29 

RETURN 30 

5 CONTINJE 31 

N=0 32 

IF (FAR. GT. 0.067) GO TO 8 33 

DO 6 J = 1, 25 34 

6 IF ( FA R. GE.FART ( J ) 5 N=J-1 35 

IF (M.EQ.O) N=1 36 

IF (N.SE.24) N=23 37 

DO 7 1=1,3 38 

NN=N-L*I 39 

XII) =F ART ( NN ) 40 

7 Y ( I ) *E T ABRT ( NN ) 41 

CALL 3 ARABO (X, Y, FAR , ETA1) 42 

GO TO 9 43 

8 ETAi=-2.*FAR+.1948 44 

9 M=0 45 

DO 10 J=1 , 7 46 

10 IF (E1S.GE.EM6TI J) ) M=J-1 47 

IF (M.EO.O) M=1 48 

IF (M.3E.6) M=5 49 

DO 11 1=1,3 50 

MM=M-UI 51 

X ( I ) =E 16T ( MM ) 52 

11 Y ( I ) =3ELM6 ( MM ) 53 

CALL PARABO (X, Y,EM6,C0R1) 54 

L=0 55 

DO 12 J=1 , 14 56 

12 IF (P6.GE.P6TU)) L= J-l 57 

IF (L.EO.O) L= 1 58 

IF (L.GE.13) L=12 59 

DO 13 1=1,3 60 

LL=L-lfI 61 

X ( I ) =P 6T ( LL ) 62 


127 



13 


Y 1 1 > =DELP6 ILL) 63 
CALL PARA BO ( X. Y, P6. C0R2 > 

ETA=ErAl*«l.-CORl)*( 1 .+C 0 R 2 ) 65 
RETURN 65 
END 67 


$1 BFTC INPUT DECK 



SUBRQJT INE INPUT (LUNIT* LOUN IT t ID* 

D» IT) 



1 


DIMENSION Dll). ITU) 





2 

c 




* 

DEFINES 

ARGUMENTS 

AS ARRAYS 

3 

c 


CONSTRUCTION OF THE 

TABLE ITAB 



4 

c 








5 

c 

BIT 

STANDARD 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

6 

c 

NUMBER 

RETURN 

1 

2 

3 

4 

5 

7 

c 

0-2 


$ 

A-Z 

0-91 ) 

= 

OTH 

8 

c 

3-4 

DETPC 

R I OTH 

NLSF 




9 

c 

5-6 

OER 

TINL 

OTH PS 

CF 



10 

c 

7-8 

0-9*+$ IOTH 

, • A-Z = 

-<*/ 




11 

c 

9 

* • ) A- Z 

OTH 





12 

c 

9-10 

• » 

A-Z) 

0-9-M 

3$ 



13 

c 

10 

OTH 

$ A-Z* ) = 

/ 




14 

c 

10-11 

0-9# f-OTH 

♦ • < 

$A-Z* 

)=/ 



15 

c 

12 

0-9 A-Z 

OTH 





15 

c 

12-13 

A-Z 

0-9 

OTH 




17 

c 

13-14 

+ - 

OTH 

0-9 




18 

c 

15-16 


DE- 

OTH 




19 

c 

17-18 

r 

F 

OTH 




20 

c 

19-20 

3 

E 

OTH 




21 

c 

21 

OTH 

• 





22 

c 

21-22 

A-Z 

OTH 

• 




23 

c 

23 

i 

OTH 





24 

c 

24 

( 

OTH 





25 

c 

25 

= 

OTH 





26 

c 

26-27 

I 

A-Z 

OTH 




27 

c 

28-29 

) 

t 

OTH 




28 

c 

30 

( 

OTH 





29 

c 

31 

) 

OTH 





30 

c 

ERROR CODE DESIGNATIONS 




31 

c 

ROUTINE TYPE 






32 

c 

10 

IX3TI 100 

ILLEGAL 

CHARACTER 




33 

c 

20 

ITABLI 200 

NAME TOO 

LONG 




34 

c 

30 

INMBRI 300 

TABLE FULL OR BAD 




35 

c 

40 

INMEI 400 

SCALING 

ERROR 




36 

c 

50 

IARITI 500 

NAME NOT 

IN TABLE 




37 

c 

60 

INAMEN 600 

$DATAC ) 

INCOMPLETE 




3B 

c 

70 

INPJT 700 

FORMULA 

ILL FORMED 




39 

c 


800 

FUNCTION 

UNDEFINED 




40 

c 

MCNVRT = TYPE 

OF LEFT 

HAND VARIABLE 



41 

c 

KCNVRT = TYPE 

OF CURRENT VARIABLE 




42 

c 

I TYPE MEANING 





43 

c 

1 

REAL 






44 

c 

2 

INTEGER 





45 

c 

3 

DOUBLE 

PRECISION 




46 

c 

4 

TYPELESS OR NO 

CONVERSION 




47 

c 

5 

SUBROUTINE 





48 

c 

6 

FUNCTION 





49 

c 


FO* MAT OF TABLE 





50 

c 

1ST 

WORD 012 

3456 

7 

-31 



51 
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no o no oo ooooooo o n on 


TYPE 

NUMBER OF 

WORDS ADDRESS 

52 

NEXT l TO 15 WORDS THE 

NAME, 4 CHARACTERS TO THE WORD 

53 

DIMENSION I FT f 31), IPTABt 

21), I TAB C 65) 

54 

DIMENSION ANAMEl 15) , IMAGEI80) » I MASEH 81 ) , IP ARAM ( 9) 

55 

.KSTACM27) ,NAME( 15) ,RVALUE(2) ,STACK(27) 

55 




5? 

COMMON 



5B 

/ICOMNII/ VALUE 

* I COMP 

* IFNTYP t I MAGE1 ,IRADIX ,ISUB 

59 

t KCH 

, KCNVRT 

, KCOUNT , KOI F , KFLD1 , KFLD2 

6D 

, LCOMP 

, LCNVRT 

, LEVEL , LFRT ,LOOK 

61 

♦ MCNVRT 

, MDI F 

, MODALL , MS TOR 

62 

♦ NAME 

TERROR 

, NONEW , NOTARG 

63 

,SMCHR 

, TEST 

,ERMARK 

64 

/I CNST I / BLANK 

, BLANKS 

, DOLLAR ,EOS 

65 

, ICQMMA 

, I DOLAR 

,IFT , IPTAB fITAB 

66 

, KAM10 

,KBPC 

, KBPW , KCPCD , KERTYP 

67 

, KZERO 

, NOPRNT 

, TAB1 

68 

/IPARAM/ ABORT 

, K IUNI T 

, KOUNI T 9 L I M ALF , LOCK ,L0CX 

69 

t NOLIST 

,NSTDIR 

9 TRACE 

70 

/I STA< I / STACK 

* I STOI M 

tKSTACK t LEVLI M 

71 




72 

INTEGER BLANK 

, BLANKS 

9 EOS • I DOLAR tTABl , TRACE 

73 

, CQNTVP , STORED 



74 

DOUBLE PRECISION 

STACK, VALUE 

75 

LOGICAL ABORT 



76 



• STOP FOR ERROR 

77 

LOGICAL DOLLAR 



78 


* TRUE IF A $T # $P, OR SC IS BEING PROCESSED 

79 

LOGICAL ERMARK 



80 



• .TRUE. IF ANY ERROR HAS OCCURED 

81 

LOGICAL LIMALF 



82 



• TERMINATE ALF CONSTANTS AT 15 WORDS. 

83 

LOGICAL LOCK 



84 



• DO NOT STORE ANY INPUT DATA 

85 

LOGICAL NOLIST 



86 



• DO NOT LIST INPUT CARDS 

87 

LOGICAL NONEW 



88 



• DO NOT READ A NEW CARD. SET IN INPUT 

89 

LOGICAL MODALL 



90 



• .TRUE. RETURN ALL CHARACTERS 

91 



.FALSE. DELETE BLANKS AND SKIP FOR 6 

92 

LOGICAL SHORT 



93 



• DO NOT STDRE ALPHABETIC AND RADIX CO 

94 



DIRECTLY INTO D ARRAY 

95 

LOGICAL SMCHR 



96 



• SAME CHARACTER IS TO BE USED OVER BY 

97 

LOGICAL TEST 



98 



• STORE COMMA AT END OF CARD IF NEEDED 

99 

END ******* ****** *****•**••»••******•*»•*** ****** *•••» 

100 

EQUIVALENCE < STACK, I STACK) 

, ( VALUE, KVALUE, RVALUE), (NAME 9 ANAME) 

101 

EQUIVALENCE ( ICOMNI, ISUB ), 

( I MAGE, I M AGE1 ) , { I PAftAM , ABORT ) 

102 

LOGICAL END2 



103 


* .TRUE. 

IF A SEND CARD HAS ALREADY BEEN FOUND 

104 

KIUNIT*LIUNIT 



105 

KOUN IT = LOUNIT 



106 

CALL DEBUGX 



107 

LIMALF * •TRUE. 



108 

DOLLAR = .FALSE. 



109 

NOLIST = .FALSE. 



110 

END2 = .FALSE. 



111 

MODALL = .FALSE. 



112 

ERMAR< = .FALSE. 



113 


129 



noon on o o so o oooo o ooo 


LOCK = .FALSE® 114 

KERTYP * 0 115 

IFNTYP = -1 116 

LOCX=l 117 

L=LEVL 1 M+3 118 

DO 16 1 = 1 * L 119 

16 KST ACK I I ) =0 120 

LE VEL=0 121 

LFRT=D 122 

NOTARS = ISTDIM 123 

LCNVRT = 3 124 

C * DOUBLE PRECISION* STANDARD 125 

MCNVRT = 1 126 

KOI F = 1 127 

MDIF = 1 128 

1 NONEW = « FALSE. 129 

SMCHR = .TRUE* 130 

CALL ICHAR2 ( $9470*241 131 

C • ERROR IF $ IS NOT 1ST CHARACTER READ 132 

LDOLAR = KCOUNT 133 

C • CARD COLUMN OF LAST DOLLAR SIGN 134 

NONEW*. TRUE* 135 

• $DATA MUST BE ON A SINGLE CARD 136 

D E OTH 137 

CALL I CHARI ( $3* $9470 » 19) 138 

l A-Z OTH 139 

4 CALL I CHARI ( $4* $9470*26) 140 

CALL ISUBI 141 

CALL ICHAR2 ($9470*31) 142 

9 ERROR IF NO ) 143 

NONEW*. FALSE. 144 

IT ( 1 ) * ISUB 145 

CALL DEBUG 2 C 5HSETN0* IT ( 1 ) ) 14S 

CALL DEBUG 2 ( 6HKERSI N *KERSI N ) 147 

IF { I D • NE • ITCH) GO TO 99 148 

9 RETURN BECAUSE WRONG DATA SET 149 

IF (IT(2).LT. 0 ) GO TO 9370 150 

* TABLE FULL OR BAD 151 

GO TO 19 152 

3 IF ( END2) GO TO 99 153 

END2 * *TRUE. 154 

NONEW - .FALSE. 155 

5 CALL I CHAR2 ($1*9) 156 

* PASS LETTERS AND *.) 157 

GO TO 5 158 

470 KERTY* = 470 159 

GO TO 999 160 

9 CONTINUE 161 

CALL DEBUG 2 ( 6HSTATMT , 99 ) 162 

KCH = IDOL AR 163 

KCOUNT = LDOLAR 164 

’NEXT CALL BEGINS PROCESSING AT THIS CARD COLUMN 165 

IF(ERMARK) IT(1) =-IABS(IT(ll) 166 

9 WARN PROGRAMER OF POSSIBLE ERRO 167 

IF(ER MARK. AND* ABORT) GO T0789 168 

RETURN 169 

789 WRITEC 6*787) 170 

787 FORMAT (44H ERROR HAS OCCURED AND ABORT IS • TRUE* * STOP) 171 

STOP 172 

BEGIN TO INPUT THE DATA 173 

STATEMENTS 19 AND 20 ARE THE SWITCHHOUSE 174 

CONTROL COMES HERE FOR NEW DIRECTION® 175 

LFRT = 0 INDICATES THAT THE PREVIOUS TASK WAS COMPLETED® 176 
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19 CONTI M JE 

C CALL DEBUG2( 6HST ATMT , 19 ) 

TEST = .FALSE. 

GO T3 21 

120 DOLLAR = . FALSE* 

20 CONT I N JE 

C CALL DEBUG 2 ( 6HSTATMT * 20 ) 

TEST= • TRUE • 

C ENTRY ICHAR4 LOADS LCOMP WITH TAB NO 10 AND RETURNS ON TAB NO 7 

C OTH ,*A-Z= -(*/ 

21 CALL I CHAR4 ( $31 » $32* 7*10) 

C NOW WE TEST LCOMP ON EACH OF THE 3 POSSIBLE RETURNS* THIS IS A 12 WAY 
C 0-9* + $ ) 

GO TO 1203,510, 64 , 430 ), LCOMP 
C * ■ A-Z = 

31 GO TO <460,202,530*450) , LCOMP 

C < * / 

32 GO T3C520, 420, 440, 441), LCOMP 

64 IF(LFRT.NE.O) GO TO 9770 

LDOLAR = KCOUNT 

C • CARD COLUMN OF LAST DOLLAR SIGN 

DOLLAR = .TRUE. 

C CALL DEBUG 2 ( 6HSTATMT ,64) 

TEST=. FALSE. 

CALL ICHAR4($9170, $9170,3, 5) 

C DE T P C 

GO T3(99, 100, 150, 630), LCOMP 
100 CALL ITABLIUT) 

IF ( KERTYP ) 999,120,999 
C 
C 

C $PARAMETER 

C ( A-Z OTH 

150 CALL ICHARI($150,$9170,26) 

151 CALL I CHAR2( $152,0) 

C • GET FIRST CHAR OF NAME • • DON* T BRAN 

152 CALL INAMEN 

CALL I LOOK I ( $153, IPTAB) 

9570 KERTY* = 570 
GO TQ999 

153 CALL ICHAR2($9170,29) 

C • ERROR IF NO * 

CALL I CHAR2( $9170,10) 

C • SET CHARACTER, SEPERATE PART OF 

CALL INMBRI 

KCNVRT*IFLD(0,3, IPTAB (LOOK) ) 

CALL ICNVTH3,KCNVRT) 

C • CONVERT FROM DP TO TYPE OF VARIABLE 

IPT=IFLD( 7,25, IPTAB (LOOK) ) 

IPARAM(IPT) * KVALUE 
C ) , OTH 

CALL I CHARI($i51, $9170,28) 

C IF ( TRACE. GT • 0 ) CALL DEBUGX 

C * IF TRACE TURNED ON PUT ON HEAD 

GO TO 120 

C * GO TO SWITCH HOUSE TEST FOR INSERTIO 

C 

C 

C CONSTANTS = LOGICAL* NUMER IC, ALPHAMERIC , RADI X* 

201 ASSIGN 220 TO CONTYP 
C * RADIX 

IFNTYP * -1 


177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 
207 
20B 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 
233 
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non ooi\> i\>ooo o o o ooooo o noon 


GO TO 210 

202 ASS I GN 230 TO CONTYP 

C 8 9 

GO TO 210 

203 ASSIGN 250 TO CONTYP 

8 MUMERIC»L0GICAL 


ALL CONSTANTS 210 

210 LOP = 0 

SHORT *.TRUE. 

MSTOR * 0 

CALL DEBUG2 ( 6HST C0N*210) 

IF(LEVEL.EQ.O) LEVEL-3 
I F C KST ACK( LEVEL). EQ.l) GO TO 9770 

8 TWO CONSTANTS IN ROW E.S. 

GO TO CONTYP* (220*230*250) 


RADIX CONSTANTS 220 

C A-Z OTH 

220 CALL I CHAR2C $9170*30) 

CALL ISUBI 

NAME (2) * 0 

221 CALL I CHAR2 ($2215*29) 

• ERROR IF NO COMMA AFTER BASE NUMBER 

GO TO 9170 

2215 CALL ICHAR2C $9170*12) 

• ERROR IF NO NUMBER . 

222 IRADIX * ISUB 
SMCHR * .TRUE. 

223 CALL ISUBI 
MSTOR * MSTOR +1 
NAME (MSTOR ) = ISUB 

IF (MSTOR. GE. 15) GO TO 225 
) » OTH 

224 CALL ICHARI<$223, $9170*28) 

IRADIX * 10 

GO TO 240 

225 ASSIGN 224 TO NEXT 
GO TO 241 


HOLLERITH CONSTANTS 230 

30 MODALL = .TRUE. 

TEST * .FALSE. 

NAME (2) * BLANKS 

31 CALL INAMEN 

IF { • N3T. MODALL ) GO TO 240 

8 END OF CONSTANT 

IF ( LIMALF ) GO TO 265 

LONG CONSTANT GOES TO 234 
234 ASSIGN 231 TO NEXT 
GO TO 241 


STORE ALF + RADIX 240 

240 ASSIGN 260 TO NEXT 

IF ( MS TOR-2 ) 242*2405,241 
2405 IF (LFRT.EO.l) GO TO 242 
CALL ICHAR2C$2406,29) 

SMCHR = .TRUE. 

GO TO 242 


239 

240 

241 

242 

243 

244 

245 

246 

247 
24B 

249 

250 

251 

252 

253 

254 

255 

256 

257 
2 5 B 

259 

260 
261 
262 

263 

264 

265 

266 
267 
26 3 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 
285 

287 

288 
2B9 

290 

291 

292 

293 

294 

295 

296 
29? 

298 

299 

300 

301 
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noo no o non ooonnno ono 


2406 SMCHR * .TRUE® 302 

241 SHORT = » FALSE® 303 

IF ( LFRT® ME® 0 ) GO TO 265 304 

C CALL 0 EBUG2 ( 6HST 241*0) 305 

242 KVALUE = NAME ( 1 ) 305 

RVALUE! 2) = ANAME ( 2 ) 307 

IF ( N3TARG.GT .LEVEL ) LCNVRT = 4 308 

CALL 0EBUG2C6HST 242,0) 309 

CALL 3EBUG21 6HSHORT , SHORT i 310 

CALL DEBUG2( 6HLFRT ,LFRT) 311 

243 IF (SHORT) GO TO 255 312 

DO 245 1 * MSTOR 313 

IF (LOCK) GO TO 245 314 

DILOCX) * ANAMECI) 315 

245 LOCX = LQCX +1 315 

246 GO TO NEXT, (224,231,260) 317 

SEE NEXT AND MEANING 318 

260 * ALF OR ) AND RADIX 319 

224 MORE THAN 15 ELEMENTS IN RADIX FIELD 320 

23i MORE THAN 15 ELEMENTS IN ALF FIELO 321 

322 

323 

NUMERIC + LOGICAL 250 324 

250 TEST = •TRUE. 325 

CALL INMBRI 326 

255 CALL IARITI 327 

LFRT = 1 328 

IF (KERTYP) 999,20,999 329 

330 

331 

RESET STACK BECAUSE IT WAS NOT USED 332 

260 LEVEL = 0 333 

TEST = .TRUE. 334 

CALL I CHAR2 ( $19,29) 335 

* SKIP COMMA 336 

KERTY* * 171 33? 

GO T3 999 33B 

265 KERTYP * 270 339 

GO T3 999 340 

341 

TEST EMPTY PARENTHESES 342 

400 IF { ( <ST ACK ( LEVEL-1 ) + KSTACK( LEVEL-2) ).NE.O) GO TO 997 343 

CALL DEBUG 2(6HSTA (),400) 344 

CALL STACKP 345 

9 PRINT STACK 346 

401 LEVEL=LEVEL-3 347 

C EMPTY FUNCTION ARGUMENT IS NOT A CURRENT LEFT SIDE 348 

IF ( KS T ACK ( LEVEL). LT. 6) GO TO 404 349 

405 VALUE- 0. 350 

GO TO 403 351 

404 RVALUE(l) * D (LOCX) 352 

RV ALUE ( 2 ) = D ( LOCX+1 ) 353 

CALL I CNVT I ( MCNVRT, 3 ) 354 

403 CALL IARITI 355 

GO TO 20 355 

C( ((((((((((<(( ((( 357 

420 IF (LEVEL. EQ.O) LEVEL=3 358 

C CALL DEBUG 2(6HSTAT (,420) 359 

422 LOP=0 360 

LFRT = 1 361 

LEVEL=LEVEL*3 362 

C CALL STACKP 363 


133 



c 

$ 


PRINT 

STACK 

364 


IF (KSTACM LEVEL-31-1) 20, 

997 

, 20 


365 

cm >m mm> m 




366 

430 

IF { LE VEL .LT « 6 ) GO TO 997 




367 

C 

CALL DEBUG 2(6HSTAT ),430) 




363 

C 

CALL 5TACKP 




369 

C 

« 


PRINT 

STACK 

370 


LFRT * 1 




371 

431 

IF ( KS T ACK ( LEVEL )- 1 ) 400, 

432, 

997 


372 

432 

DO 433 1=1,3 




373 


VALUE =ST ACK ( LEVEL) 




37 4 


kstacm level)=o 




375 


LEVEL-LEVEL-1 




376 

433 

CALL IARITI 




377 


IF { KERTYP ) 999, 20, 999 




378 

C ************** ****{K0P=2) 




379 

440 

KQP = 2 




383 

C 

CALL DEBUG 2(6HSTAT *,440) 




381 


GO TO A45 




382 

C/////////// /////// (K0P=3) 




383 

441 

KOP = 3 




38 4 

C 





385 

C 

CALL DEBUG 2(6HSTAT /,441) 




385 

445 

IF (L3P.NE.0) GO TO 997 




387 

C 

CALL DEBUG 2 ( 6HSTATMT , 445) 




388 

C 

CALL STACKP 




389 

c 

« 

PRINT STACK 

390 


LOP = 1 




391 


LFRT = 1 




392 


IF (LEVEL. ED. 0) LEVEL=3 




393 


IF (KSTACM LEVEL). NE.l) GO 

TO 

997 


394 

444 

VALUE«STACK ( LEVEL) 




395 


KST AC< ( LEVEL ) =0 




395 


LEVEL 2 LEVEL-1 




397 


CALL IARITI 




398 


IF { KERTYP. NE. 0 ) GO TO 999 




399 

446 

KSTACM LEVEL ) =KOP 




400 


LEVEL= LEVEL* 1 




401 

C 

CALL STACKP 




402 

C 




PRINT STACK 

403 


GO TO 19 




404 

C="= 

ssssasrsssa: 




405 

450 

IF (LEVEL. NE.O) GO TO 997 




406 

C 

CALL DEBUG 2I6HSTAT =,450) 




40 7 

451 

LOP=0 




408 


LOCX = LOOK 




409 


MCNVRT = KCNVRT 




410 


MDIF * KOI F 




411 


LCNVRT = 3 




412 

C 


• DOUBLE PRECISION, STANDARD 

413 


LEVEL® 3 




414 


LFRT = D 




415 


KST ACK ( 3 ) = 0 




415 

c 

CALL DEBUG21 6HL0CX ,LOCX) 




417 

c 

CALL DEBUG216HMCNVRT, MCNVRT) 




418 


GO TO 19 




419 

C 9 9 9 , 





42 0 

460 

CONTINUE 




421 

C 

CALL DEBUG 2(6HSTAT ,,460) 




422 

C 

CALL STACKP 




423 

C 

3 


PRINT 

STACK 

42 4 


IF (LEVEL - 3) 461,463, 600 




42 5 

461 

IF ( LEVEL. NE.O) GO TO 997 




425 


134 



462 

LEVEL- 3 



427 

463 

IF ( LFRT® EQ«*0) GO TO 480 



428 

c 

8 INCREMENT LOCK WITHOUT STORING 

429 

c 

IF RT WILL BE ZERO AFTER 

$ EXPRESSION OR FOR 

CONSECUTIVE COMMAS 

430 

470 

IF ( KSTACM 3I.NE.il GO TO 

997 


431 

471 

DO 475 I = 1 1 2 



432 


VALUE =ST ACK ( LEVELS 



433 


KSTACKC LEVEL ) -0 



434 


LEVEL-LEVEL-*! 



435 

475 

CALL IARITI 



436 


IF IKERTYP.NE.O) GO TO 999 



437 

476 

KST AC< ( 11=0 



438 


CALL ICNVTI (LCNVRT.MCNVRT) 



439 

474 

IFtLOCO GO TO 480 



440 


DILOCX I = RVALUE ( 1 ) 



441 


IF (MCMVRT .EQ. 3) DILOCX+l) 

* RVALUE I 2 ) 


442 

480 

LOP = 0 



443 

c 

CALL STACKP 



444 

c 

• 

PRINT STACK 


445 


LFRT=3 



445 


LOCK = LOCX * MDIF 



447 


LEVEL=0 



448 


LCNWRT = 3 



449 

c 


• DOUBLE PRECISION, 

STANDARD 

450 


GO TO 19 



451 

+*>>>*> >****>> l K0P=4) 



452 

510 

KQP = 4 



453 

c 

CALL DEBUG 216HSTAT >*510) 



454 


GO TO 521 



455 

c 

- ( KOP-5 ) 



456 

520 

K0P=5 



45? 

C 

CALL 3EBUG 216HSTAT -.520) 



453 

521 

IF { LDP ® NE*0 ) GO TO 997 



459 

522 

L0P=1 



460 


LFRT = I 



461 


IF i LEVEL » EQ#0 ) LEVEL-3 



452 

524 

IF (KSTACKf LEVEL I- 1 1 5 25, 

526* 997 


463 

525 

STACK! LEVEL)=0® DO 



464 

C 

CALL DEBUG 2(6HSTAT"IT,525) 



465 

526 

DO 523 1 = 1*2 



456 

C 

CALL DEBUG 2 I 6HSTATMT , 526) 



467 


VALUE =ST ACK ( LEVEL ) 



468 


ksta:k( leved=o 



469 


LEVEL =LEVEL-1 



47 0 

528 

CALL IARITI 



471 


IF IKERTYP.NE.O) GO TO 999 



472 

527 

KST AC< { LEVEL ) =KOP 



473 


LEVEL* LEVEL>2 



474 


GO TO 19 



475 

CABCDEFGHI J< IMNOPQRSTUVWXYZABCDEFGHI JKLMNOPQRSTUVWXYZABCDEFGHI JKLMNOPDRS 

476 

530 

L0P=0 



477 

C 

CALL DEBUG 2 ( 6HSTAT A, 530) 



478 


IF ( ( LEVEL. NE.O). AND. (KSTACM LEVEL). EO.l) ) 

GO TO 997 

479 

535 

TEST = • TRUE® 



480 


CALL I NAME 1 ! $999 » D® 1 1 ) 



481 


IF ( I = MTYP) 531 f 621? 640 



482 

531 

LFRT = 1 



483 


IF(LEVEL»NEoO)GO TO 540 



484 

532 

STACKI 3 )=VALUE 



485 

C 

CALL DEBUG 2 (6HSTATMT , 532) 



486 


KSTACU 3 ) =1 



487 

C 

CALL STACKP 



488 


135 



c 

% 

PRINT STACK 


489 


GO TO 20 



490 

540 

CONTINUE 



491 

c 

CALL OEBUG 2 ( 6HSTATMT , 540) 



492 


CALL IARITI 



493 


IF ( KERTYP ) 999,20,999 



494 

c 




495 

c 

PROCESS SUBROUTINES AND 

FUNCTIONS 


496 

c 




497 

c 

COMMA SEPARATING FUNCTION ARGUMENTS 


49B 

600 

IF (KSTACKI LEVEL-3) .LT. 6) 

GO TO 997 


499 

c 

CALL DEBUG 2(6HSTAT F.600) 



500 

601 

IF (KSTACKl LEVEL ) - 1 ) 602* 

603, 997 


501 

602 

ST ACM LEVEL ) =0* 



502 

603 

DO 610 1=1*2 



503 


VALUE = STACK ( LEVEL) 



504 


KST AC< ( LEVEL) =0 



505 


LEVEL =LEVEL-1 



50 5 

610 

CALL IARITI 



507 


IF (KERTYP. NE.O) GO TO 999 



508 

611 

KST ACK ( LEVEL ) =K$T ACM LEVEL-1 ) +1 


509 


LEVEL = L EVEL+3 



510 

C 

CALL STACKP 



511 

C 

« 

PRINT STACK 


512 


GO TO 19 



513 

c 

$C ALL 



514 

630 

DO 631 I = 1*4 



515 

C 

SKIP • ALL * IN SCALL 



516 

C 

DTH OPERATORS 



5 1 7 


CALL I CHAR2($9170,12) 



518 

631 

CONTINUE 



519 


DOLLAR = .FALSE. 



520 


TEST = .TRUE. 



521 


CALL I NAME I ($999,0, IT) 



522 


IF ( I F NTYP .NE. 1) GO TO 

640 


523 


KVALUE = -KVALUE 



524 

C 

* INDICATE 

THAT NO RESULT IS TO BE STORED FOR 

SJB 

525 

c 

FUNCTION NAME 



526 

621 

CONTINUE 



527 

C 


• FUNCTIONS 


528 

C 

CALL DEBUG2 ( 6HST FNC,621) 



529 

c 

CALL DEBUG2 ( 6HI FNTYP , IFNTYP) 


530 

c 

CALL DEBUG2(6HKVALUE, KVALUE) 


531 


IFNTYP = -1 



532 


IF (LEVEL. EO.O) LEVEL = 3 



533 


I F ( NOT ARG . GT. LEVEL) NOTARG = LEVEL 


534 


LFRT = 1 



535 


STACM LEVEL )=KVALUE 



536 


KST ACK ( LEVEL ) =6 



537 


LEVEL = LEVEL + 3 



53 B 

c 

CALL STACKP 



539 

c 

• 

PRINT STACK 


540 

c 

( OTH 



541 


CALL ICHAR2($622,30) 



542 


GO TO 19 



543 

c 


* IF THERE ARE ARGUMENTS 


544 

622 

SMCHR = .TRUE. 



545 


IF (KVALUE .LT. 0) LEVEL = 

LEVEL -3 


546 


GO TO 405 



547 

640 

IF (IFNTYP - 2) 9770,201* 

700 


548 

C 

LOCX THE SUBROUTINE THAT STORES LOCX THE SUBSCRIPT OF D 

ARR 

549 

700 

IF ( I = NTYP .NE. 3) GO TO 

9770 


550 


IFNTYP = -1 



551 


136 




IF(LEVEL.NE.O) GO T3 9770 



552 


LFRT = 0 



553 


CALL ICHAR2( $9170,30) 



554 

c 


• ERROR IF 

NO ( AFTER LOCX 

555 


ASSIGN 704 TO NEXT 



556 

c 

A-Z OTH 



557 

702 

CALL ICHAR2($9170,9) 



55 B 


CALL I NAME I ( $999, D, I T ) 



559 


IF (IFNTYP #GT • -1) GO TO 

9770 


560 


GO TO NEXT, (704,708) 



561 

704 

LOOKX = LOOK 



562 

C 

OTH 



563 


CALL I CHAR2 ($706,29) 



56 4 

C 


• ERROR IF 

NO COMMA 

565 


GO TO 9170 



566 

706 

ASSIGN 708 TO NEXT 



567 


GO TO 702 



568 

708 

KVALDE - LOCX - LOOKX + 1 



569 


CALL I CNVT I { 2 , KCNVRT ) 



570 

C 


• CONVERT 

FROM I NT TO TYPE OF 2ND ARG 

571 


IFtLOCK) GO TO 710 



572 


D ( LOOK ) * RVALUE ( 1 ) 



573 

710 

CALL ICHAR2{$9170,31 ) 



574 

C 

• ERROR IF NO ) 


575 


TEST = .TRUE. 



576 

c 

OTH , 



577 


CALL ICHAR2C $19,29) 



578 

c 


• SKIP THE 

COMMA THAT MUST FOLLOW 

579 

9170 

KERTY® « 170 



580 


GO TO 999 



581 

9370 

KERT YP =370 



582 


GO TO 999 



583 

997 

CONTINUE 



584 

9770 

KERTYP = 770 



585 


GO TO 999 



586 

999 

CALL IERORI 



587 


LFRT = 0 



588 


LOP = 0 



589 


NAME ( 1 ) =0 



590 


GO TO 19 



591 

C 


• MOW 

GO TO SWITCH HOUSE . . GOOD 

592 


END 



593 


$ I BFTC BLOCK DECK 
BLOCK DATA 

C ICOMNI BLOCK DATA PROGRAM 

DIMENSION I FT ( 31), IPTABl 21), ITAB ( 65) 

DIMENSION ANAME ( 15 ) ,IMAGE(80) , I MAGE 1 (81) , IP ARAM (9) 
• ,KSTACK(27) ,NAME( 15 ) ,RVALU£<2) ,STACK(27) 

C 

COMMON 


1 

2 

3 

4 

5 

6 
7 


/ 1 CNST I / 


VALUE 

, I COMP 

.IFNTYP 

, I MAGE 1 

, IRADIX 

t I SUB 

8 

KCH 

, KCNVRT 

» KCDUNT 

, KOI F 

, KFLDl 

, KF LD2 

9 

LCOMP 

♦LCNVRT 

.LEVEL 

, LFRT 

♦ LOOK 


10 

MCNVRT 

, MD IF 

.MODALL 

, MSTOR 



11 

NAME 

, NERROR 

.NONEW 

, NOTARG 



12 

SMCHR 

, TE ST 

.ERMARK 




13 

BLANK 

♦BLANKS 

.DOLLAR 

♦ EOS 



14 
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*/I PARAM/ 


>/XSTA<I/ 


INTEGER 


I COMMA 

, IDOLAR 

*ift 

9 IPTAB 

, ITAB 


15 

KAH10 

9 K BPC 

, KBP W 

® KCPCD 

, KERT YP 


16 

KZERO 

, NOPRNT 

* TAB1 




17 

ABORT 

, K I UN I T 

, KOUNI T 

, LI HALF 

©LOCK 

©LOCK 

18 

NOLIST 

, MSTDI R 

9 TRACE 




19 

STACK 

,ISTDIM 

, KST ACK 

, LEVL IM 



23 







21 

BLANK 

* BLANKS 

, EOS 

9 IDOLAR 

,TABi 

•9 TRACE 

22 


double precision stack, value 

LOGICAL ABORT* DOLLAR* ERM ARK, L I HALF , LOCK, NOLI ST. NONE W, MOD ALL, 
NSTD1R*SMCHR«TEST 


9 NSTD!R,SMCHR f TEST 


48,-17997958192, 
7 9 6® 

11555507248, 


10, 59, 
36, 43, 
64, 11555507248, 


43, 

80, 

11555507248/ 


. 0, 11555507248, 64, 115555 

DATA ABORT, I MAGE 1! 1) , IMAGE 1 1 81 ) , I R AD I X , I STD I M , 

& KCOUNT»KDIF,KSTACK, LEVLXM,NSTDIR f STACK/ 

* • FALSE • , 1HE » 1H * 10, 2 7 , 0, 1 , 27*0, 24, . TRUE * , 27*0® DO/ 

DATA I FT/ 

* 0, 31, -177 16740 112, 21051935792,-17716740123, 

* 23481748528,-17716740144, -3864988720,-17716740160,-19756682283, 
-17 715 740176,-20009401392, -17716740192, 19113857200,-17716740208, 

-8213767088,-17716740224, -8428915760,-17716740240, -8433110054, 

* t A ^ r / 4 , -9 y r\ o v r r a ^ A / 


-82 1 D 767 088 , 
*-17715740256, 
> -9954237936, 
, 0 / 
DATA IPTAB/ 

» 0 , 
. -3653 164950 s? 
& -536871 040 , 

» -2 793 30254? * 
, 0 / 
END 


■17716740224, -8428915760, 
18568907824, -17716740272, 
-9126805552, -3863968816, 


21 , 

-536870992, 

-6221022825, 

17716740192, 


-536870928, 

-3863882800, 

17716740128, 

-3863968816, 


21907455024, 

9126805696, 


1856573361 6 , 
-536871024, 
-2580698739, 


-9126805536 , 
-3863883248, 


-536870976, 
6015524019 , 
17716740144, 


17716740240 ,-21093496176? 


23 

24 

25 

26 


DATA ITAB/ 

65* 20572347824/ 



27 

DATA I TAB ( 49 ) /-1 1890 146992/ 



28 

* , 

ITABI 

44)/ 

11923699376/, 

ITAB! 

61)/ 

29355228304/ 

29 

® , 

ITAB ( 

29)/ 

29053238816/, 

ITAB! 

12)/ 

-3484760752/ 

30 

« , 

ITAB! 

28)/ 

-11 82 1997744/, 

ITAB! 

17)/- 

11903778480/ 

31 

« 9 

ITAB! 

33)/ 

-1215596 1 008 / , 

ITAB! 

45)/- 

12192136880/ 

32 

® 9 

ITAB! 

501/ 

-1220891 4096/ s 

ITAB! 

13)/- 

•12041137840/ 

33 

• , 

I T A3 ! 

60)/ 

-11957255792/, 

ITABI 

11)/- 

11890146992/ 

34 


ITAB! 

1)/ 

29063724720/, 

ITABC 

2)/ 

29063724720/ 

35 

• e 

ITAB! 

3 ) / 

29063724720/, 

ITABI 

4)/ 

29063724720/ 

36 

« t 

I T A3 ! 

5)/ 

29063724720/, 

ITAB! 

6)/ 

29063724720/ 

37 

• , 

ITAB! 

7)/ 

29063724720/, 

ITAB! 

8)/ 

2 9063724720/ 

38 

* 9 

ITABC 

9)/ 

29063724720/, 

ITABC 

10)/ 

29063724720/ 

39 

« 9 

I T A3 ! 

18)/ 

20572347824/, 

ITABI 

20)/ 

18961735088/ 

40 

e 9 

ITAB! 

21)/ 

17350532528/, 

ITABI 

22)/ 

17350565296/ 

41 

* , 

ITAB! 

23)/ 

23256571312/, 

ITABI 

26)/ 

20035476912/ 

42 

» , 

ITAB! 

36)/ 

22182960560/, 

ITABI 

38)/ 

22182960560/ 

43 

• 9 

ITA3I 

40)/ 

18424864176/, 

ITABI 

42)/ 

19498606000/ 

44 

• « 

ITAB! 

51)/ 

227 19831472/, 

ITABI 

52)/ 

17887731120/ 

45 

DATA 31 ANK, BLANKS, EDS, ICOMMA, IDOLAR, KAM10, KBPC , KBP W, KCH , KCPCD, 

46 


47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
53 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 


$ I BFTC IARITI DECK 

C ARITHMETIC OPERATIONS FOR INPUT R* 

SUBROJT INE IARITI 


S* 2 


1 

2 
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on ooonoo 


CALLED FROM INPUT 

DIMENSION I FT < 31), IPTABI 21), ITAB( 65) 

DIMENSION ANAMEU5) ,IMAGE(80) , I M AGE 1 ( 81 ) , I PARAM { 9 ) 
• tKSTACK (27) , NAM EC 15 ) *RVALUE{2> ,STACK(27) 

COMMON 


INTEGER 

DOUBLE PRECISION STACK, VALUE 

LOGICAL ABORT, DOLLAR ,ERM ARK, LI MALF, LOCK, NOLI ST, NONE W,MDDALL, 

. NSTO I R , SMCHR , TEST 

EQUIVALENCE < STACK, I STACK ) , ( VALUE , KVALUE , RVALUE >, t NAME , AN AME ) 
EQUIVALENCE ( I COMNI , I SUB ) , ( I MAGE , I M AGE1 ) , ( I PAR AM , ABORT) 

CALL DEBUGC ( 6HI AR ITI ) 

CALL STACKP 

• PRINT STACK 


LEVED/VALUE 


LEVEL) +VALUE 


LEVEL > -VALUE 


IF ( KERTYP.NE# 0 ) GO TO 100 
IF C (LEVEL. LE.O).OR. (LEVEL. GT.LEVLIM) 
BRANCH ON KSTACK ( LEVEL)* -, 0, 1, 2, 
2 K=MAXD(1,KSTACK( LEVEL ) +2 ) 

IF(K.SE.8) GO TO 60 

- 0 1 2 3 4 5 

3 GO TO (120,90, 120, 20, 30, 40, 50), 

20 VALUE* STACK ( LEVEL) *VALUE 
GO TO 90 

30 VALUE* STACK ( 

GO TO 90 

40 VALUE* STACK! 

GO TO 90 

50 VALUE*ST ACK ( 

GO TO 90 

60 LEVELl = LEVEL-K+9 

DO 61 I-LEVEL1, LEVEL 

61 KSTACK ( I ) =0 
LEVEL * LEVEL1-1 

CALL DEBUG 2 ( 5HL EVEL , LEVEL ) 

CALL DEBUG 2 ( 5HV ALUE , V ALUE ) 

IF (LOCK) GO TO 62 
CALL IXQTHVALUE, STACK! LEVEL)) 

62 CONTINUE 

: CALL DEBUG 2 ( 5HVALUE , VALUE ) 

IF (LEVEL .LE. NOTARG) NOTARG = ISTDIM 
IF (STACK(LEVEL).LT.O,DO) GO TO 110 
GO TO 90 

90 ST ACM LEVEL ) *VALUE 

KST AC < ( LEVEL ) = 1 
100 CONTINUE 
: CALL STACKP 


) GO TO 
3, 4, 5, 


120 

6 , 


7, 8 AND UP 


*KSTACK(LEVEL) 


3 

4 

5 

6 

7 

8 


VALUE 

, I COMP 

, IFNTYP 

, I M A3E1 

, IRADIX 

, I SUB 

9 

KCH 

, KCNVRT 

, KCOUNT 

, KOI F 

« KFLD1 

, K F L D 2 

10 

LCOMP 

, LCNVRT 

, LEVEL 

, L FRT 

, LOOK 


11 

MCNVRT 

, MD I F 

.MODALL 

, MSTOR 



12 

NAME 

, NERROR 

, NDNEW 

, NOTARG 



13 

SMCHR 

♦ TEST 

tERMARK 




14 

BLANK 

, BLANKS 

, DOLLAR 

, EOS 



15 

ICOMMA 

, I POLAR 

, I FT 

, I PTAB 

, I TAB 


16 

KAM10 

» K BPC 

, KBPW 

, KCP CD 

, KERTYP 


17 

KZERQ 

, NOPRNT 

, tabi 




18 

ABORT 

, K I UNI T 

, KOUN I T 

, LI MALF 

, LOCK 

, LOCK 

19 

NOLIST 

, NSTDI R 

, TRACE 




20 

STACK 

, ISTDIM 

, KSTACK 

, LE VLI M 



21 







22 

BLANK 

, BLANKS 

, EOS 

, IDOLAR 

, T AB1 

, TRACE 

23 


24 

25 

26 

27 

28 
29 
3D 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 
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c 

» 

PRINT 

STACK 

65 

c 

CALL OEBUGR 



66 


RETURN! 



67 

no 

LFRT= 0 



68 

c 


8 SPECIAL 

TREATMENT FOR SUBROUTINES 

69 

c 

CALL DEBUG2 (6HSTATMT?110) 



70 


ksta:k(leveu=o 



71 


LE VEI =0 



72 

c 

OTH * 



73 


CALL I CHAR2 ( $100 * 29 ) 



7 4 


KERTYP = 150 



75 


GO TO 100 



76 

120 

KERTYP = 750 



77 


GO TO 100 



78 


END 



79 


$ I BFTC ICHAR 4 OECK 







SUBR3JTINE ICHAR 4 (*.*»L IST1.LIST2) 



1 


DIMENSION I FT C 31), IPTABI 

21), I TAB ( 

65) 


2 


DIMENSION ANAMEI 15) ,IMAGE(80) , I M AGE 1 ( 81 ) , I PARAM ( 9 ) 

3 


* ?KSTACK(27) » NAME( 15 ) » RVALUE 

(2) » STACK 

(27) 

4 

C 






5 


COMMON 





6 


./ICOMNI/ VALUE 

» ICOMP 

, I FNTYP 

, IMAGE1 

, I RADI X ,ISUB 

7 


. » KCH 

* KCNVRT 

f KCOUNT 

, KDIF 

, KFLD1 , KFLD2 

B 


. • LC3MP 

,LCNVRT 

tLEVEL 

9 LFRT 

,LOOK 

9 


. t MCNVRT 

t MD IF 

, MODALL 

9 MSTOR 


10 


. » NAME 

, NERROR 

, NONE W 

* NOTARG 


11 


. » SMCHR 

* TEST 

,ERMARK 



12 


./ICNSfl/ BLANK 

9 BLANKS 

, DOLLAR 

, EDS 


13 


. t ICQMMA 

, IDOLAR 

tIFT 

9 IPTAB 

9 1 TAB 

14 


. » K AM 10 

9 KBPC 

, KBPW 

, KCPCD 

* KERTYP 

15 


. » K ZERO 

9 NOPRNT 

9 TAB1 



16 


,/IPARM/ ABORT 

9<IUNIT 

, KOUNI T 

, L I M A L F 

»LOCK , LOCX 

17 


. t NOL I ST 

9 N STD I R 

, TRACE 



18 


./ISTA<I/ STACK 

9 ISTDIM 

,KSTACK 

, LEVL I M 


19 

C 






20 


INTEGER BLANK 

9 BLANK S 

, EOS 

* IDOLAR 

, T AB1 9 TRACE 

21 


. »COMPR 





22 


DOUBLE PRECISION 

STACK* VALUE, I DEBUA* 

DEBGNA { 2 ) 


23 


DATA DEBGNA/ 6 HICHAR .5HITCHR/ 



2 4- 


LOGICAL ABORT, DOLL AR, ERM ARK, LI MALE .LOCK, NOL 1ST, NONEW , MODALL , 

25 


#NSTDIRfSMCHR»TEST 





25 


EQUIVALENCE ( STACK, I STACK ) 

, ( VALUE , KVALUE , RVALUE ) » ( NAME , ANAME ) 

27 


EQUIVALENCE ( ICOMNI, ISUB ), 

{ IMAGE, IMAGED 9 (IPARAM 

9 ABORT ) 

28 


LOGICAL GOTCD 





29 

C 

t 

TRUE IF NEW CARD WAS 

READ 


30 


LOGICAL SMCHR 





31 

C 



9 RE-PROCESS THE SAME CHARACTER AS LAS 

32 


KFLD2 = L I ST2 





33 


I B I TS = 2 





34 


ASSIGN 36 TO COMPR 




35 


IDEBJN = 4 





35 


GO TO 10 





37 


ENTR 7 I CHAR I ( * 

tLISTl) 




38 


IBITS » 2 





39 


IDEBJN = 3 





40 


GO TO A 





41 
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ENTRY ICHAR2l*,LISTl ) 42 

I B I TS = 1 43 

I DE BUN = 2 44 

4 KFLD2 = “1 45 

ASSIGN 37 TO COMPR 46 

IF l M3DALL ) GO TO 40 47 

10 ASSIGN 20 TO IGETR 48 

12 KFLDl =L I STi 49 

IDEBUA = OEBGNA ( 1 ) 50 

ASSIGN 110 TO NEXT 51 

GQTC3=. FALSE. 52 

IF(SMCHR) GO TO 35 53 

C • SKIP GETTING NEW CHARACTER 54 

GO TO 200 55 

C • GET CHARACTER RETURN TO 20 56 

20 IF(KCH.EQ.BLANK)GO TO 200 57 

C 9 BYPASS BLANKS 58 

IF (KCH.NE.EOS) G3 TO 30 59 

C • EOS= END OF STATEMENT CHARACTER 60 

ASSIGN 200 TO INEWR 61 

C 9 PROVIDE TO SET FIRST CHARACTER FROM NEXT C 62 

GO TO 300 63 

30 I F ( TE ST. AND* GOTCD) GO TO 100 64 

35 ITEM* » ITA81KCH+1) 65 

I COMP =IFLD(LIST1,IBIT$,ITEMP) 66 

GO TO COMPR. (36,37) 67 

36 LC0MP=IFLD(LIST2, 2, ITEMP)+1 68 

37 CONTINUE 69 

IF ( TRACE • LT*4 ) GO TO 38 70 

C CALL 0EBUG2( IDEBUA, IDEBUN) 71 

38 SMCHR = .FALSE. 72 

IF ( I COMP-1 ) 381,382,383 73 

381 RETURN 74 

382 RETURN1 75 

383 RETURN2 76 

40 ASSIGN 35 TO IGETR 77 

GO TO 12 78 

- - ITCHR ------- 79 

SPECIAL ROUTINE TO INSERT COMMA AT END OF CARD IF 80 

THE NEXT CARD BEGINS WITH $ OR A LEFT MEMBER 81 

TO THIS ROUTINE, A LEFT MEMBER BEGINS WITH A-Z 82 

FOLLOWED BY ANY OF 0-90 A-Z FOLLOWED BY = 83 

100 IDEBUA * DEBGNA { 2 ) 84 

ITEMP = I TAB ( KCH+1 ) 85 

I COMP- IFLD{ 0,3, I TEMP ) 86 

GO TO NEXT, 1110,120) 87 

9 110 FOR 1ST CHR ON NEW CARD, 120 FOR FDLL 88 

110 NONEW = * TRUE • 89 

ASSIGN 120 TO NEXT 90 

$ A-Z 0-90 = OTH 91 

GO T3( 130,200,140,140,140) , ICOMP 92 

93 

$ A-Z 0-90 * OTH 94 

120 GO T3( 140,200,200,130,140) , ICOMP 95 

130 KCOUNT-O 96 

KCH=I COMMA 97 

NONEW= • FALSE. 98 

GOTCD = .FALSE* 99 

GO T3 35 100 

C 9 COMMA IS CHARACTER RETURNED 101 

140 KCOUN T = 0 102 

NONEW=. FALSE. 103 

GOTCO = .FALSE* 104 
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C GO T3 200 105 

C • FIRST NON-BLANK CHARACTER ON CARD IS RETURNED 106 

C------------- - 107 

C ROUTINE TO GET NEXT CHARACTER 108 

C 109 

200 IFIKCOUNT.LT.KCPCDIGO TO 210 110 

ASSIGN 210 TO INEWR 111 

GO TO 300 112 

210 KC0UNT=KC0UNT+1 113 

C * CARD COLUMN OF NEW CHARACTER 114 

KCH=IFLD(0,KBPC, IMAGEl KCOUNT) ) 115 

GO TO IGETR.120,35) 115 

C • 35 IS USED ONLY FOR MODALL .TRU 117 

C ----- - - -- -- -- -- 118 

C ROUTINE TO PRINT OLD CARD AND READ NEXT 119 

C IF NONEW IS TRUE, STORE TAB1 IN KCH AND RETURN 120 

300 I F ( NONEW ) GO TO 310 121 

KCH=I MAGE ( KCOUNT +1 ) 122 

C * GET CARRIAGE CONTROL 1 1 MAGE (811 IS A BLANK) 123 

IFUKCH.EQ. NOPRNT), OR.NOLI ST) GO TO 305 124 

WRITE(K0UNIT,398)KCH, IMAGE 125 

398 F0RMAT(1A1»5X»80A1) 125 

305 READ! KIUNIT, 399) IMAGE 127 

399 FORMAT ( 80A1 ) 126 

G0TCD=»TRUE. 129 

KC0UNT=0 130 

GO TO INEWR, 1200, 210) 131 

310 KCH=T AB1 132 

GO TO 30 133 

C « TAB1 IS RETURNED, INDICATES END OF C 134 

END 135 


$ I BFTC ICNVTI DECK 

SUBROJT INE ICNVTIUFROM, ITO) 1 

DIMENSION I FT ( 31), IPTAB! 21), ITA8( 65) 2 

DIMENSION ANAMEI15) ,IMAGE(80) , IMAGE 1 ( 81 ) , I PARAM I 9 ) 3 

. » KST ACK I 27 ) , NAM El 15) .RVALUE! 2) ,STACK(27) 4 

C 5 

COMMON 6 


/ICOMNI/ VALUE 

1 1 COMP 

9 I FNTYP 

.IMAGEl 

9 I RADI X 

1 1 SUB 

7 

, KCH 1 

. KCNVRT 

9 KCOUNT 

. KDI F 

9 KFLD1 

.KFLD2 

8 

, LCOMP 

. LCNVRT 

t LE VEL 

. LFRT 

.LOOK 


9 

•MCNVRT 

. M D I F 

t MODALL 

. MST3R 



10 

.NAME 

, MERROR 

.NONEW 

. NOTARG 



11 

, SMCHR 

t TEST 

.ERMARK 




12 

/ I CNST I / BLANK 

.BLANKS 

.DOLLAR 

, EOS 



13 

, ICOMMA 

t I DOLAR 

. IFT 

. I P TAB 

. I TAB 


I** 

, KAM10 

« K BPC 

.K8PW 

9 KCPCD 

9 KERTYP 


15 

, KZERO 

9 NOPRNT 

, TAB1 




16 

/IPARAM/ ABORT 

» K I UNI T 

.KOUNIT 

, LIMALF 

.LOCK 

. LOCX 

17 

.NOLIST 

t NSTDI R 

.TRACE 




18 

/ 1 S TA< I / STACK 

tISTDIM 

.KSTACK 

•LEVLIM 



19 

INTEGER BLANK 

, BLANKS 

.EOS 

« I DOLAR 

.TABI 

.TRACE 

C J 
21 


DOUBLE PRECISION STACK, VALUE 22 

LOGICAL ABORT, DOLLAR, ERMARK, LI MALF, LOCK, NOLI ST, NONEW, MODALL, 2 3 

.NST DIR, SMCHR, TEST 24 

EQUIVALENCE ( ST ACK, I ST ACK) , ( VALUE , <VAL UE , RVALUE ),( NAME , ANAME ) 25 
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EQUIVALENCE ( ICOMNI, I SUB) » (IMAGE* IMAGED * ( I PAR AM , ABORT ) 2 5 

DIMENSION NT YPE ( 4 ) 27 

DOUBLE PRECISION NTYPE 2B 

DATA NTYPE / 6HREAL *6HINT *6HDP *6HN0C0NV/ 29 

IF( {IFROM # LE.O).0R.( ITO.LE.O) ) GO TO 100 30 

IF ( I p ROM - 4) 1*99* 100 31 

1 IF ( ITO - 4) 2,99*100 32 

2 IT0M2 = I TO - 2 33 

IF ( IFROM-2) 3,4,5 34 

3 IF ( IT0M2) 99*10*20 35 

4 IF ( IF0M2) 30,99*40 36 

5 IF UfOM2) 50*60*99 37 

10 KVALUE = RVALUE ( 1) 33 

GO TO 99 39 

20 VALUE = RVALUE ( 1 ) 40 

GO TO 99 41 

30 RVALUE(l) = KVALUE 42 

GO TO 99 43 

40 VALUE = KVALUE 44 

GO TO 99 45 

50 RVALUE ( 1 ) = VALUE 46 

GO TO 99 47 

60 KVALUE = VALUE 48 

99 CONTINUE 49 

C CALL 0EBUG3 ( 6HI CNVT I , 0 . DO, 3 ) 50 

C CALL DEBUG3 ( NTYPE ( IFROM) *NTYPE{ ITO) ,3) 51 

RETURN 52 

100 WR I TE( KOUN I T , 1 01 ) IFROM, ITO 53 

101 FORMAT ( 35H ARGUMENTS OF ICNVTI BAD. IFROM = ,I13,8H, ITO = ,113, 54 

• 41 H { 1 TO 4 ALLOWABLE). CHECK IPTAB IN COMNJ) 55 

GO TO 99 56 

END 57 


$ 1 8FTC IERORI DECK 

SUBROUTINE IERORI 1 

DIMENSION I FT ( 31), IPTABI 21), ITABC 65) 2 

DIMENSION ANAME { 15 ) * IMAGE(80) , I MAGE 1 ( 81 ) , I PAR AM ( 9 ) 3 

. *KSTACK(27) *NAME( 15) *RVALUE(2) ,STACK(27) 4 

C 5 

COMMON 6 


/ICOMNI/ VALUE 

, I COMP 

, I FNTYP 

tIMAGEl 

* IRADIX 

,ISUB 

7 

* KCH 

, KCNVRT 

, KCOUNT 

, KDIF 

i KFLD1 

, KFLD2 

B 

* LCOMP 

* LCNVR T 

* LEVEL 

* LFRT 

, LOOK 


9 

, MCNVRT 

* MD I F 

*MODALL 

* MSTOR 



10 

t NAME 

* NERROR 

, NONE W 

, NOTARG 



11 

* SMCHR 

, TEST 

, ERMARK 




12 

/ I CNST I / BLANK 

*BLANKS 

, DOLLAR 

» EOS 



13 

* ICOMMA 

, IDOLAR 

,ift 

, IPTAB 

, I TAB 


14 

* K AM10 

* K BPC 

* KBPW 

« KCPCD 

* KERT YP 


15 

, KZERO 

, N OPRNT 

, TAB1 




16 

/IPARAM/ ABORT 

* K I UNI T 

, KOUN I T 

, L I MALF 

, LOCK 

* LOCX 

17 

* NOL 1ST 

» NSTDI R 

, TRACE 




13 

/ I S T A< I / STACK 

* I STDI M 

* KSTACK 

, LEVL I M 



19 

20 

21 

INTEGER BLANK 

tBLANKS 

, EOS 

, IDOLAR 

* T AB1 

, TRACE 


DOUBLE PRECISION STACK, VALUE 


22 


LOGICAL ABORT* DOLLAR* ERM ARK * L I M ALF * L OCK , N3L I ST * NONE W , MOD ALL * 


23 


• NSTf)IR*SMCHR*TEST 


24 
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EQUIVALENCE ( STACK, I STACK ) , ( VALUE t KVALUE , RVALUE ) , {NAME, ANAME) 25 

EQUIVALENCE ( ICQMNI , I SUB ) , { I MAGE , I MAGE1 ) , { IP ARAM, ABORT ) 2 6 

INTEGER H(4,7) 27 

EQUIVALENCE ( H{ 1 , 1 ) , HI ) , ( H ( 1 , 2 ) , H2 ) • ( H( 1, 3 > , H3 ) , ( H ( l , 4 > , H4) 2B 

. , (H(l, 5),H5) ,{H(1,6) ,H6) ,(H(1,7),H7> 29 

DATA KA/1H*/ 30 

DATA <B/IH / 31 

DATA K C/1H, / 32 

DATA <D/1H* / 33 

INTEGER MSGT YP (2,2), Hi(4>, H2(4>, H3(4), H414), H5 l 4> ,H6 { 4) , 97 { 4) 3'+ 

DATA MSGTYP ( 1 , 1 ) /24H*DI AGNOSTIC* *ERROR** / 35 

DATA 91(1) /24HINAPPR0PR I ATE CHARACTER / 36 

DATA 9211) /24HNAME TOO LONG / 37 

DATA H 3 ( I ) /24HT ABLE FULL OR DESTROYED / 38 

DATA HU) /24H$D INCOMPLETE OR MISSING / 39 

DATA H5 1 1 ) / 24HNAME NOT IN TABLE / 40 

DATA HSCU /24HFUNCTN OR SUB NOT ABOARD / 41 

DATA H 7 ( 1 ) /24HF0RMJL A ILL-FORMED / 42 

C CALL DEBUGC ( 6HI ERORI I 43 

NONEW = .FALSE. 44 

NERROR = NERROR +1 45 

C • COUNT DIAGONISTICS 46 

ERMAR< = .TRUE. 47 

C f WARN PRQGRAMER OF POSSIBLE ERRO 48 

IOP =0 49 

C 1 COUNT OPERATORS +-,=(* 50 

MODE =1 51 

IF { NOT ARG.LT .LEVEL) MODE = 2 52 

KC1=KB 53 

IF(KCOJNT.EQ.O) KC1=KC 54 

L = KCOUNT +1 55 

MODALL = .FALSE. 56 

TEST = .TRUE. 57 

M = I ABS 1 KERTYP ) 58 

J = M7100 59 

K = 2 60 

IF ( DOLLAR ) MODE =2 61 

IF ( KERTYP .GT .0 ) LOCK = .TRUE. 62 

IFIKERTYP.LT.O) K=1 63 

11 WRITE I <0UNIT,90) (MSGTYPt I,K ) , 1=1, 2 ) , M, < H< I , J ) , 1=1 , 4) ,KC1 , 6 4 

.IMAGE, {KB, 1= 1, L ) ,KA, l KB, I=L , 8 1 ), NERROR, LOCK 65 

90 FORMAT { 1H ,2A6,2H {,I3,2H) , 4A6 , 2X, 81 A 1/45X , 83A1 , 66 

. /14X, 11HERR0R COUNT, 14, 13H LOCK = LI, 1H. ) 67 

IF(NERR0R.GT.64)ST3P 68 

I F { KERTYP .L I . 0 ) GO TO 99 69 

SMCHR = .TRUE. 70 

30 CALL ICHAR4( $31, $65, 7,10) 71 

C 0-9. + $ ) 72 

GO TO (30,65,39,80), LCOMP 73 

C , • A-Z = 74 

31 GO TO (60, 65, 30, 60), LCOMP 75 

39 SMCHR = .TRUE. 76 

40 L = KCOUNT ♦ 1 77 

KC1 = KB 78 

IF ( KCOUNT. EQ.0)KC1=KC 79 

WR I TE( < DUN IT, 91)KC1, IMAGE, (KB, 1=1, L) ,KD, (KB,I=L,81) 8 0 

91 FORMAT! 14X.43HSKIP AHEAD AND GUESS AT NEXT GOOD STATEMENT, 31 

. /14X, 32HBEG IN PROCESSING AT SYMBOL , 81 A 1 /45X , 83A 1 82 

. / 14X4 BHLQOK FDR DIAGONISTICS BUT DON**T STORE ANYTHING.//) 83 

IFNTYP = -1 84 

DO 1 1=1, ISTDIM 85 
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1 ksta;k( I ) = 0 86 

LEVEL =0 87 

NOT ARS = ISTDIM 88 

99 CONTINUE 89 

KERTYP =0 90 

C CALL DEBUGR 91 

RETURN 92 

C ,=, = , = , =. = ,=, =, = , = , = ,=,=, =, = ,= 93 

60 I F ( MODE .EQ. 1 ) GO TO AO 94 

C ALL OPERATORS 95 

65 IOP = IOP + 1 96 

IF C I0».LE.16) GO TO 30 97 

C IF YOU FIND 16 OPERATORS BEFORE ) GIVE UP 98 

C 99 

c ) m n m m in m in 100 

80 MODE = 1 101 

DOLLAR * .FALSE. 102 

GO TO 30 103 

C 104 

C MODE ACTION 105 

C 106 

C 1 SKIP TO NEXT $ OR = OR , (UNCONDITIONAL) 107 

C 2 SKIP TO NEXT $ (UNCONDITIONAL) OR TO = OR , AFTER ) 108 

END 109 


$1 BFTC ILOOXI DECK 

SUBROUTINE ILOOKI(«,IT) 
C CALLED FROM 

C ITABLI 

C INAMEI 


LOGICAL ABORT, DOLLAR, ERMARK, LI MALF, LOCK, NOLI ST, NONE W.MODALL, 

. NSTDIR»SMCHR,TEST 

EQUIVALENCE (STACK, ISTACK) , ( VALUE , <VAL UE , R VALUE )»( NAME , ANAME ) 

EQUIVALENCE ( ICOMNI, I SUB), ( IMAGE, IMAGE1 ) , l I PAR AM , ABORT ) 

L00K=3 

* FIRST USABLE POSITION 


DIMENSION irm 






5 

DIMENSION I FT ( 31), IPTAB( 

21), I TAB ( 

65) 



5 

DIMENSION ANAMEI15) ,IMAGE(80) , I MAGE 1 ( 81 ) , I PARAM ( 9) 


7 

t KSTACK ( 

27) y NAMEC 15 ) , RVALUE 

(2) , STACK ( 27 ) 


B 

r» 

COMMON 






y 

10 

/ICOMNI/ VALUE 

♦ I COMP 

♦ IFNTYP 

♦ I MAGE1 

♦ IRADIX 

♦ I SUB 

11 

,KCH 

♦KCNVRT 

, KCOUNT 

» KDI F 

♦ KFLD1 

♦ KFLD2 

12 

, LCOMP 

» LCNVRT 

♦LEVEL 

* LFRT 

♦ LOOK 


13 

v MCNVRT 

* MDIF 

, MODALL 

, MSTOR 



14 

♦ NAME 

♦NERROR 

♦NONEW 

♦NOTARG 



15 

♦SMCHR 

♦ TEST 

, ERMARK 




16 

/ICNSri/ BLANK 

♦ BLANKS 

♦DOLLAR 

♦ EOS 



17 

, ICQMMA 

, IDOLAR 

y I FT 

, IPTAB 

y I TAB 


18 

, KAM10 

♦ KBPC 

♦ KBPW 

yKCPCD 

♦KERTYP 


19 

» KZERQ 

yNOPRNT 

, TAB1 




20 

/IPARAM/ ABORT 

♦ < I UN I T 

♦KOUNIT 

♦LIMALF 

♦ LOCK 

♦ LOCK 

21 

♦NOLIST 

♦ NSTDIR 

♦TRACE 




22 

/ 1 S TA< I / STACK 

♦ ISTDIM 

, KSTACK 

♦ LEVLIM 



23 

INTEGER BLANK 

♦ BLANKS 

♦ EOS 

♦IDOLAR 

♦ tabi 

♦TRACE 

C ^ 

25 

DOUBLE PRECISION 

STACK, VALUE 




26 


27 

28 

29 

30 

31 

32 
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OOOOi* O CD DO on 


I IF { IK LOOK ) ® EQ ® 0 ) GO TO 7 33 

C * RETURN WITH NEXT AVAILABLE ENTR 34 

J=IFLD(3,4 f IT{ LOOK) ) 35 

C * MAX POSSIBLE J IS 15 36 

IF < J » NE « MSTOR I GO TO 8 37 

C 9 B IF NAME IS WRONG LENGTH * TRY 33 

DO 4 <«1,J 39 

C * CHECK NAME FOR MATCH 40 

LOOKK = LOOK + K 41 

IF (NAME(K).NE.IT(LOOKK) ) GO TO 8 42 

4 CONTINUE 43 

CALL DEBUG2 ( 6H*L00KF , LOOK 5 44 

* ENTRY WAS FOUND 45 

RETURN 1 45 

7 CONTINUE 47 

CALL DEBUG2 ( 6H*LOOKN, LOOK) 48 

* NO ENTRY WAS FOUND 49 

RETURN 50 

LOOK - LOOK+J+1 51 

52 

53 

* TRY NEXT ENTRY 54 

GO TO 1 55 

END 55 


C 


C 


BFTC INAMEI DECK 

SUBROUTINE INAMEI ( * , D, I T) 1 

CALLED FROM INPUT 2 

CALL DEBUGC ( 6H I NAME I ) 3 

SUBROUTINE TO OBTAIN LOCATION, MODE, AND CONTENTS OF A NAMED CELL 4 


DIMENSION I FT ( 31), IPTABC 21), 
DIMENSION ANAME (15) ,IMAGE(80> 
,KSTACK(27),NAM£(15) 


ITABI 65) 
, IMAGE It 8 
, RVALUE ( 2 ) 


COMMON 

/ICOMNI/ VALUE 
* KCH 
, LCOMP 
, MCNVRT 
, NAME 
, SMCHR 
/ICNSTI/ BLANK 
, I COMMA 
, KAM10 
« KZ.ERO 
/IPARAM/ A80RT 
, NOLI ST 

/ I STAR I / STACK 


, I COMP 

, IFNTYP 

,<CNVRT 

,KC3UNT 

, LCNVRT 

•LEVEL 

, MD IF 

,M0DALL 

, NERROR 

,NONEW 

, TEST 

•ERMARK 

•BLANKS 

, DOLLAR 

, IOOLAR 

*IFT 

» K BPC 

, KBPW 

, NOPRNT 

, T AB1 

, K I UN I T 

•KOUNIT 

, NSTDI R 

, TRACE 

, I STD I M 

•KSTACK 


1) , I P ARAM { 9 ) 
» STACK! 27 ) 


, I MAGE1 y I RADI X 


, KDI F 
, LFRT 
, MSTOR 
, NOTARG 

, KFLD1 
• LOOK 

, EOS 
, I PT AB 
, KCPCD 

, 1 TAB 
, KERTYP 

•LIMALF 

t LOCK 

• LEVLIM 


, I DOLAR 

, TAB1 


5 

6 

7 

8 
9 

13 

* I SUB 11 

» KFLD2 12 

13 

14 

15 
15 

17 

18 

19 

20 

,LOCX 21 

22 

23 

24 

$ TRACE 25 

26 

27 

28 

29 

30 

31 


INTEGER BLANK , BLANKS »EOS 
DOUBLE PRECISION STACK, VALUE 
LOGICAL ABORT, DOLLAR, ERMARK, L I MALF, LOCK, NOLI ST, NONE W» MOD ALL, 
NSTUIR, SMCHR, TEST 

EQUIVALENCE C ST ACK, I STACK ) , (VALUE, RVALUE, RVALUE) ,( NAME , ANAME ) 
EQUIVALENCE ( ICOMNI, I SUB), ( IMAGE ,1 MAGE 1 ), 1 1 PAR AM, ABORT ) 
DIMENSION I T ( 1 ) 
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ooooo o o o o nonon 


C 4 TABLE OF NAMES PROVIDEO BV USER 32 

DIMENSION D(l) 33 

C » USERS VARIABLES ARE IN 0 ARRAY 34 

ISUB =1 35 

C • UNDERSTOOD SUBSCRIPT 35 

KDIF =1 37 

CALL INAMEN 38 

CALL I LOOKI ( $1, IT ) 39 

CALL I LOOKII $64, IFT) 40 

9540 KERTY 5 =540 41 

C • NAME NOT IN TABLE 42 

GO TO 99 43 

l CONTINUE 44 

C CALL DEBUG2I6HSTATMT, 1) 45 

ITL = IT! LOOK ) 45 

KCNVRT=IFLD(0,3, ITL ) 47 

CALL DEBUG 2 ( 6HKCNVRT .KCNVRT ) 48 

R I D T S F 49 

GO T0112, 12, 10, 12, 62, 61), KCNVRT 50 

10 KDIF * 2 51 

( OTH 52 

12 CALL I CHAR2 ( $90, 30 ) 53 

• GO TO 90 FOR NO SUBSCRIPT 54 

A-Z 0-9 OTH 55 

CALL ICHARI($82,*9140,12) 56 

CALL INAMEN 57 

CALL I LOOKI ( $83, IT) 58 

GO TO 9540 59 

82 SMCHR = .TRUE. 60 

CALL I SUB I 61 

GO TO 84 62 

83 ITYPE=IFLDIO,3,IT(LQOK) ) 63 

L0C=IFLD(7,25,IT(LD0K>) 64 

RVALUE ( 1) = D(LOC) 65 

RVALUE ( 2 ) = DILOC+l) 65 

CALL ICNVTI C I TYPE, 2 » 67 

ISUB = KVALUE 63 

) OTH 69 

84 CALL I CHAR2 { $9140*31 • 70 

• ERROR IF NO ) 71 

GO TO 91 72 

90 SMCHR = .TRUE. 73 

91 L0C=IFLDI7,25,ITL) 74 

CALL DEBUG 2 ( 5HLUC l.LOC) 75 

LOC = LOC + ( ISUB-1)*K0IF 76 

50 RVALUE l 1 ) = D(LOC) 77 

RVALUE l 2 ) = DILOC+l) 78 

CALL DEBUG 3 I 5HI T I L ) , ITL , 2 ) 79 

CALL ICNVTI (KCNVRT, 3) 80 

52 LOOK = LOC 81 

98 CONTINUE 82 

CALL DEBUG 3 ( 5HVALUE , VALUE ,4 ) 83 

CALL DEBUG 2 (6HL00< .LOOK) 84 

CALL DEBUG 2 ( 5HL0C 2, LOC) 85 

CALL DEBUG 2 ( 6HKCNVR T .KCNVRT ) 86 

CALL DEBUGR 87 

RETURN 88 

61 IFNTYP =0 89 

C • FUNCTION 90 

GO TO 63 91 

62 IFNTYP =1 92 
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n o o o o o non 


C * SUBROUTINE 93 

63 KVALJE=IFLD(7,25, ITL ) 94 

GO TO 98 95 

64 IFNTYP =0 95 

C * LIBRARY FUNCTION OR SUBROUTINE 97 

KVALJE=IFLD(7»25»IFT(LOOK) ) 98 

C • PROGRAM NUMBER (USED BY IXQTI) 99 

MSTOR = 0 100 

KCNV1T=IFLD(0,3, IFT( LOOK) ) 101 

C • 5 FOR SUBROUTINES, 6 FOR FUNCTIONS 102 

IF(KCNVRT<.EQ.5) IFNTYP=KVALUE 103 

C * PROVIDE FDR EXECUTION OF INPUT SUBRO 104 

C CALL 0EBUG21 6HL IBF « RVALUE ) 105 

C MEANING OF IFNTYP 106 

C VALUE NAME IS 107 

C — 1 C NORMAL ) AN ORDINARY VARIABLE 10B 

C 0 FUNCTION (USER OR FORTRAN MATH) 109 

C l USER SUBROUTINE 110 

C 2 RADIX (INPUT FUNCTION) 111 

C 3 LOCX (INPUT SUBROUTINE) 112 

C $C ALL LOCX ( Y 1 1 ) CAUSES I TO BE SET SO THAT Y 1 1 ) REFERS TO THE CUR 113 

C LEFT SIDE. 114 

GO TO 98 115 

9140 KERTYP =140 115 

99 CONTINUE 117 

CALL DEBUG2 ( 6HRETURN , 1 ) 118 

CALL DEBUGR 119 

• REGESTER RETURN 120 

RETURN 1 121 

END 122 


IBFTC INAMEN DECK 

SUBROUTINE INAMEN 1 

CALLED FROM 2 

INAMEI 3 

ITABLI 4 

INPUT 5 

CALL DEBUGC ( 6HINAMEN ) 5 

7 

DIMENSION I FT ( 31), IPTAB( 21), I TAB ( 65) 8 

DIMENSION ANAME ( 1 5 ) ,IMAGE(80> , IMAGE1 ( 811,1 PARAM( 9) 9 

. , KSTACK( 27) ,NAME( 15 ) ,RVALUE(2) ,STACK(27) ID 

C 11 

COMMON 12 


./ICOMNI/ VALUE 

, I COMP 

, IFNTYP 

tIMAGEl 

, IRADIX 

1 1 SUB 

13 

. , KCH 

, KCNVRT 

•KCOUNT 

, KD I F 

, KFLD1 

, KFLD2 

14 

. , LCOMP 

, LCNVRT 

•LEVEL 

, LFRT 

• LOOK 


15 

. , MCNVRT 

, MD IF 

, MOO ALL 

, MSTOR 



15 

. , NAME 

,NERROR 

,NONEW 

, NOT ARG 



17 

. , SMCHR 

, TEST 

•ERMARK 




18 

. / I CNST I / BLANK 

•BLANKS 

• DOLLAR 

• EOS 



19 

. , ICOMMA 

, IDOLAR 

, I FT 

, I PT AB 

, I TAB 


20 

. , KAM10 

, KBPC 

, KBP W 

• kcpcd 

•KERTYP 


21 

. , KZERG 

, NOPRNT 

,T AB1 




22 

./IPARM/ ABORT 

, K I UN I T 

, KOUNI T 

•LIMALF 

• LOCK 

, LOCX 

23 

* , NOL 1ST 

, NSTOI R 

•TRACE 




24 

./ISTAKI/ STACK 

, I STDI M 

,KSTACK 

•LEVLIM 



25 
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a o o o ** on o 


C 25 

INTEGER BLANK , BLANKS ,EOS , IDOLAR , TAB1 .TRACE 27 

DOUBLE PRECISION STACK, VALUE, DNAME 28 

LOGICAL ABORT, DOLLAR, ERMARK, L I M ALF » LOCK, NOL I ST, NONEW, MODALL , 29 

•NSTDIR»SMCHR»TEST 30 

EQUIVALENCE ( STACK, I STACK) , ( VALUE , KVALUE , RVALUE ),( NAME , ANAME ) 31 

EQUIVALENCE I ICOMNI, I SUB ) , I I MAGE , I MAGE 1 > , ( I PAR AM, ABORT ) 32 

EQUIVALENCE1NAME, DNAME) 33 

C COLLECTS NAME (UP TO 15 WORDS) TERMINATED BY ANY SPECIAL CHAR 34 

ASSIGN 6 TO NEXT 35 

IF(MODALL)ASSIGN 2 TO NEXT 36 

MSTOR =0 37 

J = < BPW 38 

NAME ( 2 ) = BLANKS 39 

1 GO TO NEXT, (2,6,7) 40 

C • OTH 41 

2 CALL I CHAR2 ( $8 ,23) 42 

TEST = .TRUE. 43 

MODALL = .FALSE. 44 

CALL I CHAR2 ( $99, 23) 45 

C • PAIR OF APOSTROPHYS DOES NOT EN 45 

TEST = .FALSE. 47 

MODALL * .TRUE. 48 

GO TO 8 49 

6 ASSIGN 7 TO NEXT 50 

GO TO 8 51 

C A-Z-0-9 OTH 52 

7 CALL ICHAR2( $99,12) 53 

8 IF( J.LT.KBPW) GO TO 9 54 

I F ( MS TOR . EQ. 15 ) GO TO 10 55 

MSTOR = MSTOR +1 56 

NAME ( MSTOR ) * BLANKS 57 

J = 0 58 

9 NAME( MST0R) = IFLD4(KCH,J ,KBPC,NAME l MSTOR ) ) 59 

J = J+K BPC 60 

GO TO 1 61 

10 IF ( MODALL ) GO TO 99 62 

KERTYP = -260 63 

CALL IERORI 64 

95 CALL ICHAR2( $99, 12) 65 

C • SKIP REST OF NAME 66 

GO TO 95 67 

99 CONTINUE 68 

SMC HR = .TRUE. 69 

CALL DEBUG3 1 6HNAME , DNAME, 3) 70 

CALL DEBUG215HMSTOR, MSTOR) 71 

CALL DEBUGR 72 

RETURN 73 

END 74 


IBFTC INMBRI DECK 

SUBROUTINE TO TRANSLATE A NUMERIC FIELD 
SUBROUTINE INMBRI 
CALLED FROM INPUT 

INMBRI IS CALLED WITH FIRST DIGIT IN KCH 
CALL DEBUGCI6HINMBRI ) 

DIMENSION I FT { 31), IPTABI 21) , I TAB ( 65) 

DIMENSION ANAMEU5) , IMAGEI80) , I MA3E1 1 81 ) , I PARAM ( 9 ) 
. ,KSTACK(27) ,NAME(15) ,RVALUE( 2) ,STACK(27) 


1 

2 

3 

4 

5 

6 
7 
3 


149 



COMMON 


9 

10 


/ICOMNI/ VALUE 

, I COMP 

, I FNTYP 

.IMAGEl 

, IRADIX 

, ISUB 

11 

f KCH 

, KCNVRT 

, KCOUNT 

, KDI F 

, KFLD 1 

, KFL D2 

12 

, LCOMP 

, LCNVRT 

.LEVEL 

, LFR T 

.LOOK 


13 

,MCNVRT 

♦ MDI F 

.MODALL 

.MSTOR 



14 

, NAME 

, NERROR 

, NONEW 

.NOTARG 



15 

, SMC HR 

,TEST 

.ERMARK 




16 

/ICNSTI/ BLANK 

.BLANKS 

.DOLLAR 

.EOS 



17 

, ICOMMA 

, I DOLAR 

,ift 

, I PTAB 

. I TAB 


IB 

, K AM 10 

, < BPC 

, KBP W 

, KCPCD 

.KERTYP 


19 

, KZERQ 

,NOPRNT 

, TAB1 



+ 

20 

/IPARAM/ ABORT 

•KIUNIT 

.KOUNIT 

.LIMALF 

.LOCK 

,LDCX 

21 

, NOLIST 

, NSTDIR 

.TRACE 




22 

/ I S T A< I / STACK 

, I STD I M 

, KSTACK 

.LEVLIM 



23 

INTEGER BLANK 

.BLANKS 

.EOS 

, I DOLAR 

, TAB1 

, TRACi 

25 

DOUBLE PRECISION 

STACK, VALUE, DNBR, 

H, FD ( 4 ) 



26 


LOGICAL ABORT, DOLLAR, ERMARK, L I MALF , LOCK, NOL I ST, NONEW , MODALL . 

• NSTDI R , SMCHR , TEST 

EQUIVALENCE ( STACK, I STACK ) , < VALUE , KVALUE , RVALUE ),( NAME , ANAME ) 

EQUIVALENCE { ICOMNf, I SUB ) , ( IMAGE, IMAGED , ( I PAR AM, ABORT ) 

LOGICAL LVALUE 
EQUIVALENCE ( KVALUE, LVALUE ) 

LOGICAL SWITCH 
DIMENSION LDC4) 

DATA LD(l),LD{2),LD(3),LD(4)/8t4,2.1/ 

DATA FD(1 ) , FDC 2 ) t FD( 3) ,FD(4)/1.GD8.1.0D4, 1.0D2.10.D0/ 

DNBR=D 

' THE NUMBER COLLECTED SO FAR 


ICSCO 


IPF = 1 


I ESE = 0 


•THE CHARACTERISTIC SCALE FACTOR 

• SIGN OF EXPONENT 

• THE EXPONENT 


27 

2B 

29 

30 

31 

32 

33 
3 * 
35 
35 

37 

38 

39 
<►0 

41 

42 

43 

44 



ASSIGN 1 TO NEXT 



45 


SWITCH = .FALSE. 



46 


SMCHR = .TRUE. 



47 


CALL ICH AR2( $70 . 21 ) 



48 

C 

» GO TO TO FOR 

LOGICAL 

CONSTANTS 

49 


SMCHR = .TRUE. 



50 

C 

+- OTH 0-9 



51 

1 

CALL I CH AR4 ( $2 , $3, 13,15) 



52 


GO TO 50 



53 

3 

DNBR = DNBR*10. DO+FLOAT { KCH-KZERO ) 



54 


GO TO NEXT, < 1 , 15 ) 



55 

15 

ICSC = ICSC - 1 



56 


GO TO 1 



57 

C 

. DE OTH 



58 

2 

GO T0(20,30,50) .LCOMP 



59 

19 

SMCHR = • TRUE. 



60 

C 

•ENTER 

HERE FOR 

INITIAL DECIMAL POINT 

61 

20 

IF (SWITCH) GO TO 9130 



62 

C 

CALL DEBUG2 ( 6HSTAT .,20) 



63 


ASS T GN 15 TO NEXT 



64 


SWITCH * .TRUE. 



65 


GO TO 1 



66 

37 

I PF=- 1 



67 


GO TO 36 



63 

30 

CONTI HUE 



69 

C 

CALL DEBUG 2 ( 6HSTAT E , 30 ) 



70 
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C +- QTH 0-9 71 

CALL ICHAR4($50,$35, 13,15) 72 

C + - 73 

GO TD ( 36 , 37 ) » LCOMP 74 

35 SMCHR..TRUE. 75 

36 CALL I SUB I 76 

C * TEST WILL BE TRUE 77 

44 ICSC = ICSC+I SIGN! ISUB.IPF) 78 

C ' RESOLVE SCALE FACTORS 79 

50 CONTINUE 80 

C CALL DEBUG 2 ( 6HSTAT ,50) 81 

C CALL DEBUG3 ( 5HDNBR1 , ONBR ,4) 82 

H = 1, DO 83 

IESC=I ABSI ICSC) 84 

DO 63 1*1,4 85 

61 IF (IESC.LT. LD ( I ) ) GO TO 63 86 

62 I ESC= I ESC-LD ( I > 87 

H=H*F Dll) 88 

GO TD 61 89 

63 CONTI MUE 90 

IF (ICSC.LT.O) GO TO 65 91 

64 DNBR * DNBR*H 92 

GO TO 98 93 

C T F OTH 94 

70 CALL I CHARI ($73, $19, 17) 95 

LVALJE*. TRUE. 96 

71 IF I ND TARG.GT.LEVEL ) LCNVRT=4 97 

C • LOGICAL CONSTANTS NOT CONVERTED 98 

RV AL J E ( 2 ) =0. 99 

C A-Z OTH . 100 

72 CALL I CHAR I ($91 30 ,$99,21) 101 

C 'DISCARD REST OF WORD, MUST FIND 102 

GO TO 72 103 

73 LVALJE*. FALSE. 104 

GO TD 71 105 

65 DNBR = DNBR/H 105 

98 VALUE = DNBR 107 

SMCHR = .TRUE. 108 

99 CONTINJE 109 

C CALL DEBUG3 ( 6HDNBR 2, DNBR, 4) 110 

C CALL DEBUG3I5HVALUE, VALUE, 4 ) 111 

C CALL DEBUG2I 6HICSC ,ICSC) 112 

C CALL DEBUG2I 6HIPF ,IPF) 113 

C CALL DEBUG 2I6HIESC , I ESC ) 114 

C CALL DEBUGR 115 

RETURN 116 

9130 KERTYR = 130 117 

GO TO 99 113 

END 119 


$ I BFTC ITABLI DECK 

C SUBRO J TINE TO CONSTRUCT TABLE ENTRIES 1 

SUBROUTINE ITABLK IT) 2 

C CALLED FROM INPUT 3 

C CALL DEBUGC (6H ITABLI ) 4 
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o n 


DIMENSION IFTC 31 ) , IPTABC 21), I TAB ( 65) 

DIMENSION AN AME ( 15 ) ,IMAGE<80) , I M AGE 1 ( 8 1 ) , I P ARAM ( 9 ) 


,KSTACK(27> ,NAMEI 15) »RVAtUE(2> ,STACM27) 

COMMON 

/ICOMNI/ VALUE 

, ICOMP 

, I FNTYP 

, IMAGE1 

, IRADIX 

, KCH 

, KCNVRT 

,KCOUNT 

, KOI F 

♦ KFLDi 

, LCOMP 

* LCNVRT 

, LEVEL 

, LFRT 

, LOOK 

, MCNVRT 

, MD IF 

, MODALL 

, MSTOR 


, NAME 

» NERROR 

, NONEW 

, NOT ARG 


, SMCHR 

, TEST 

, ERMARK 



/ I CNST I / BLANK 

, BLANKS 

♦DOLLAR 

♦ EOS 


, ICOMMA 

, I DOLAR 

,IFT 

, I PTAB 

♦ ITAB 

, K AM 10 

* KBPC 

, KBPW 

, KCPCD 

, KERTYP 

, KZERO 

, NOPRNT 

, T AB1 



/IPARAM/ ABORt 

, K I UN I T 

, KOUNI T 

♦LIMALF 

, L OCK 

, NOLIST 

, N STDIR 

♦TRACE 



/ I STA< I / STACK 

, I STDI M 

, KSTACK 

, LEVL I M 


INTEGER BLANK 

♦BLANKS 

, EOS 

, I DOLAR 

, TAB1 


DOUBLE PRECISION STACK, VALUE 

LOGICAL ABORT , DOLLAR , ERMARK, LI MALF, LOCK, NOLI ST, NONEW, MODALL , 
•NSTDIR, SMCHR, TEST 

EQUIVALENCE ( STACK, I STACK) , f VALUE, KVALUE, RVALUE ),< NAME, ANAME) 
EQUIVALENCE l ICOMNI, I SUB ),( I MAGE, IMAGE1 ),( I P ARAM, ABORT ) 
DIMENSION IT (1) 


KDIF = 1 
ISUBX = 1 
I TYPE = 1 


CALL I CHARI 


A-Z OTH 
($1, $9120, 26) 


ALWAYS INITIALIZE TO .REAL. 


SKIP * ABLE * IN TABLE 


3 CONTINJE 

: CALL DEBUG2 ( 6HST ATMT , 3 ) 

CALL ICHAR4($4,$9120,7,9) 

: . ) 0-9+ OTH 

GO TD (30 ,98 ,10 ,9120),LC0MP 

: , A-Z OTH OTH 

4 GO TD (3 ,20, 9120, 9120) , LCOMP 

9120 KERT YP- 120 

: • ILLEGAL CHARACTER 

GO TO 98 

10 CONTINUE 

; CALL DEBUG2 ( 6HST 0-9 ,10) 

SMCHR = .TRUE. 

CALL ISUBI 

ISUBX = I SUB 

CALL ICHAR2( $9120,25 ) 

: • ERROR IF NO = 

GO TO 3 

30 CONTINUE 

: CALL DEBUG 2 ( 6HST ATM T , 30 ) 

31 KDIF = 1 

: SPLIT TYPES ( I NT , REAL , DP , NO CON VERS I ON , FUNC T I ON , SUBROUTINE) 

CALL l CHAR4( $32, $33, 3,5) 

IF(LCDMP.GT.l) GO TD 9120 
KDIF = 2 
GO TO 33 


5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
13 

19 

20 
21 
22 

23 

24 

25 

26 
27 
2 B 
29 
33 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
43 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 
6D 
61 
62 

63 

64 

65 
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ooooooooow* vO o o o noon 


32 IF (LC3MP.EQ.3) GO TO 9120 66 

ITYPE = LCOMP 67 

GO TO 34 68 

33 ITYPE = LCOMP+2 69 

C A-Z OTH . 70 

34 CALL I SHARK $9120, $3, 2L) 71 

GO TO 34 72 

20 CONTINUE 73 

C CALL 0EBUG2 ( 6HST ATMT * 20 ) 74 

CALL INAMEN 75 

50 CONTINUE 76 

C CALL DEBUG2(6HSTATMT,50) 77 

ITBUFF=IFLD4( I TYPE, 0,3, ITBUFF ) 7 8 

ITBUFF=IFLD4(MST0R, 3,4, ITBUFF) 79 

ITBUFF=IFLD4< ISUBX, 7, 25, ITBUFF) 8 0 

CALL DEBUG2 t 5HI TYPE , ITYPE ) 81 

CALL 0EBUG2 ( 5HMST0R , MSTOR ) 82 

CALL 0EBUG2 (5HISUBX, ISUBX) 83 

CALL DEBUG4 ( 6HI TBUFF, I TBUFF , 2 ) 84 

ISUBX = ISUBX + KDIF 85 

CALL I LOOK I ( $56 , 1 T ) 86 

IF( ( IT (2) .NE.Ol.AND. ( ( LOOK+MSTQR *2 ) . GT. I T I 2 ) l ) SO TO 9320 87 

IT I LOOO = ITBUFF 88 

DO 55 <=1 » MSTQR 89 

LOOK* LOOK+i 90 

55 I T I LOOK ) *NAME ( K ) 91 

CALL DEBUG2 ( 6HSTATMT » 55 ) 92 

LOQK=L 00K + 1 93 

IT ( LOOK )=0 94 

GO TO 3 95 

56 IT ( L03<)=ITBUFF 96 

CALL DEBUG2(6HSTATMT,56) 97 

GO TO 3 98 

98 CONTINUE 99 

CALL DEBUGR 100 

RETURN) 101 

320 KERTY 9 =-320 102 

CALL IERORI 103 

GO TO 3 104 

END 105 


ISUBI DECK 

SUBROUTINE ISUBI 1 

ISUBI FINDS SUBSCRIPTS AND INTEGER CONSTANTS 2 

CALLED FROM 3 

INAMEI 4 

INMBRI 5 

INPUT 6 

ITABLI 7 

I SUB BEGINS PROCESSING WITH THE NEXT CHARACTER. 3 

CALL DEBUGC ( 5HI SUB I ) 9 

COLLECTS INTEGER OF BASE IRADIX TERMINATED BY A SPECIAL CHARACTER 10 

DIMENSION IFT ( 31), IPTABI 21), ITABI 65) 11 

DIMENSION ANAMEU5) ,IMAGE(80) , IMAGE 1 ( 81 ) , I PARAM ( 9 ) 12 

,KSTACK(27),NAME(15) ,RVALUE(2) ,STACK(27) 13 

C 14 

COMMON 15 

. / ICOMN I / VALUE , I COMP , IFNTYP , I MAGE 1 , IRADIX ,ISUB 16 
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non 


t KCH 

9 KCNVRT 

9 KCOUNT 

9 KDIF 

9 KFLD1 

9 KFLD2 

17 

9 LCOMP 

* LCNVRT 

9 LEVEL 

9 L FRT 

sLOOK 


13 

9 MCNVRT 

t MDIF 

9 MODALL 

9 MSTOR 



19 

9 NAME 

TERROR 

dNONEW 

9 NOT ARG 



20 

9 SMCHR 

s T EST 

tERMARK 




21 

/ICMSFI/ BLANK 

♦ BLANKS 

9 DOLLAR 

9 EOS 



22 

9 ICOMMA 

9 I DOL AR 

tIFT 

» IPTAB 

9 ITAB 


23 

9 K AM 10 

*<BPC 

9 KBPW 

» KCPCD 

9 KERTYP 


2 A- 

9 K ZERO 

f NOPRNT 

9 TAB1 




25 

/ I P ARAM/ ABORT 

t < IUN I T 

* KOUNI T 

« L IMALF 

9 LOCK 

« LOCX 

25 

9 NOL 1ST 

9 NSTDIR 

f TRACE 




27 

/ I ST A< I / STACK 

t ISTDIM 

yKSTACK 

9 LEVLI M 



2 B 







29 

INTEGER BLANK 

9 BLANKS 

9 EOS 

9 I D3LAR 

9 T ABI 

t TRACE 

3D 


DOUBLE PRECISION STACK, VALUE 31 


LOGICAL ABORT, DOLLAR, ERMARK,LIMALF, LOCK, NOLI ST, NONE W.MODALL, 32 

•NSTDIR* SMCHR , TEST 33 

EQUIVALENCE ( STACK, I STACK) , ( VALUE, KVALUE , RVALUE ),( NAME , ANAME ) 3A 

EQUIVALENCE I I COMNI » I SUB ) , ( I MAGE, I M AGE1 ) , ( I PARAM , ABORT ) 35 

I SUB = 0 36 

C A-Z 0-9 OTH 37 

80 CALL ICHARI($10»$99»12) 38 

I 0 1 GI T=KCH-KAM10 39 

C 9 VALUE OF LETTER USED AS DIGIT AO 

30 IFIIDISIT .GE. IRADIX) GO TO 99 41 

35 ISUB * I SUB * IRADIX + IDIGIT 42 

C ' ACCUM TOTAL. IRADIX A3 

GO TO 80 AA 

99 SMCHR = .TRUE. A5 

• ALLOW SAME CHARACTER TO BE READ AS 

CALL DEBUG2I 6H*ISUBI » ISUB) A7 

CALL DEBUGR A8 

RETURN A9 

10 IDIGIT=KCH-KZERO 50 

C 9 VALUE OF DIGIT 51 

GO TO 30 52 

END 53 


SIBFTC IXQTI DECK 

SUBROUTINE IXQTI ( ARGL , ARGS ) 1 

C USER MAY PUT HIS OWN COMMON STATEMENTS IN THIS ROUTINE AND 2 

C USE THEM TO SUPPLY ARGUMENTS TO HIS CALLS IF HE DESIRES 3 

COMMON it 

./IPARAM/ ABORT ,KIUNIT ,KOUNIT, LIMALF ,LOCK, LOCX, NOLIST, NSTDIR 5 

TRACE 6 

DOUBLE PRECISION ARGS 1 27 ) , ARGL, ARG22 7 

DIMENSION ARG212) 8 

EQUIVALENCE l ARG2 , ARG22 ) 9 

C 10 

M = DABS ( ARGS 1 1 ) ) 11 

IF (M.LT.l .OR. M.GT.16) GO TO 99 12 

GO TO ( 1,2, 3, A, 5,6, 7, 8, 9, 10, 11, 12, 13,1 A, 15,16) ,M 13 

1 ARGL = COS ( ARGL ) 1A 

GO TO 100 15 

2 ARGL * EXP ( ARGL ) IS 

GO TO 100 17 

3 ARGL = ALOG(ARGL) 18 

GO TO 100 19 
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4 

ARGL = SINURGL) 

20 


GO TO 100 

21 

5 

ARGL = SORT ( ARGL ) 

22 


GQ TO 100 

23 

6 

ARGL = ATAN2(ARGS(2) »ARGL) 

2 4 


GO TO 100 

25 


PRINT FUNCTION 

26 

7 

ARG22 = ARGSC2) 

27 


WRITE ( KOUNI T , 101 ) ARG2, ARGL 

28 

101 

FORMAT ( 1 H 2A6,3H = ,D26.17) 

29 


GO TO 100 

30 

8 

ARGL = SNGL t ARGS (2))**IFIX{ SNGL ( ARGL+DSI GN ( • 5D0, ARGL ) ) ) 

31 


GO TO 100 

32 

9 

ARGL * ABS ( SNGL ( ARGS (2) ) )**SNGL(ARGL) 

33 


GO TO 100 

34 

10 

ARGL = ABS ( ARGL ) 

35 


GO TO 100 

36 


DISC( RIMINENT) FUNCTION 

37 

11 

IF (ARGL) 102,103,104 

38 

102 

ARGL = ARGS ( 2 ) 

39 


GO TO 100 

40 

103 

ARGL * ARGS ( 3 ) 

41 


GO TO 100 

42 

104 

ARGL = ARGS ( 4) 

43 


GO TO 100 

44 

12 

CALL LOCKX(ARGL) 

45 


GO TO 100 

46 

13 

CONTINUE 

47 


GO TO 100 

48 

14 

CONTINUE 

49 


GO TO 100 

50 

15 

CONTINUE 

51 

16 

CONTINUE 

52 

100 

CONTINUE 

53 


CALL DEBUGR 

54 


RETURN 

55 

99 

KERT7P =-610 

56 


CALL IERORI 

57 


GO TO 100 

58 


END 

59 


SIBFTC LOCKX DECK 

SUBROUTINE LOCKX ( J ) 


COMMON 

./1PARA*/ ABORT 

tic I UN IT 

, KQUN I T 

tLIMALF 

, LOCK 

» LOCX 

. .NOLIST 

LOGICAL J . LOCK 
LOCK = J 

, NSTDI R 

, TRACE 





RETURN 

END 


1 

2 

3 

4 

5 
5 
7 
B 
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o o o o n 


$ I BFTC DEBUGX DECK 

subrojtine debugx 


10 


c 

98 

c 


c 

c 





9 I N I TAL I ZATI ON 



2 

DIMENSION ISUBN120) 





3 

TRACE 

- 0 NO PRINTING 





4 

TRACE 

= 1 

PRINT DEBUG 

2*3 CALLS 

ONLY 



5 

TRACE 

= 2 

PRINT DEBUG 

2*3 CALLS 

ONLY 



5 

TRACE 

= 3 

PRINT DEBUG 

2*3 AND 

STACK PRINT 



7 

TRACE 

= 4 

PRINT DEBUG 

2*3 AND STACK PRINT 

AND CALLS 

FROM CHAR 

8 

DIMENS 

ION I FT ( 27 ) , I P TAB ( 21 ) # ITAB165) 



9 

DIMENS 

ION ANAMEU5) #IMAGEI80) , I MAGE 1 ( 81 ) # I PARAM ( 9) 


10 


# KSTACKf 27) # NAME! 15) #R VALUE! 2) , STACK (27) 


11 

COMMON 







1 c 

13 

,/icom 

1/ VALUE 

,ICOMP 

# I FNTYP 

# I MAGE1 

,IRADIX 

,ISUB 

14 


tKCH 

# KCNVRT 

#KCQUNT 

# KDI F 

, KFLD1 

, KFLD2 

15 


, LCOMP 

, LCNVRT 

# LEVEL 

#LFRT 

# LOOK 


15 


, MCNVRT 

, MD IF 

, MODALL 

# MSTOR 



17 


, NAME 

# NERROR 

#NONEW 

# NOT ARG 



18 


tSMCHR 

, TEST 

, ERMARK 




19 

,/icnst 

1/ BLANK 

# BLANKS 

# DOLLAR 

# EOS 



20 


, ICOMMA 

# 1D0LAR 

, I FT 

# I PTAB 

, I TAB 


21 


# K AM10 

, KBPC 

#KBPW 

# KCPCD 

, KERT YP 


22 


# KZERO 

# NOPRNT 

# TAB1 




23 

* / I P AR A 

M/ ABORT 

, < I UNI T 

# KOUNIT 

tLIMALF 

, LOCK 

# LOCX 

24 


, NOLIST 

# NSTDIR 

# TRACE 




25 

./ISTA<I/ STACK 

, ISTD1M 

, KSTACK 

#LEVLIM 



25 

0 7 

INTEGER BLANK 

# BLANKS 

, EOS 

# I DOLAR 

, TAB1 

, TRACE 

C f 
28 


DATA 3A0CAL/6HBADCAL/ 

DOUBLE PRECISION ALFARO# ISUBN, STACK, VALUE# DBLANK# DARG 
LOGICAL ABORT, DOLLAR, ERMARK,L IMALF# LOCK# NOLI ST# NONE W#MODALL# 
>NSTDIR# SMCHR#TEST 

EQUIVALENCE ( STACK# I STACK) , C VALUE # KVALUE# RVALUE ) , { NAME# ANAME ) 
EQUIVALENCE { ICOMNI, I SUB ), ( IMAGE , I MAGE1 ) , ( I PARAM, ABORT ) 

» , ( DBLANK, BLANK ) 

ISUBC = 0 
DO 10 I = 1,10 
ISUBNII) * DBLANK 
IF t TRACE# EQ# 0 ) GO TO 99 
WRITE (KOUNIT ,410) 

GO TO 99 

ENTRY DEBUGC ( I SUBNA) 

DOUBLE PRECISION ISJBNA 

* NEW 

IF ( ISUBC#GT#10) GO TO 98 
ALFARO = DBLANK 
NUMAR3 * -1 
ISUBC = ISUBC+1 
ISUBNI ISUBC) = I SUBNA 
I F [ TRACE • GE ® 4 5 GO TO 400 
GO TO 99 


SUBROUTINE CALLED 


ALFAR3 = BADCAL 

NUMAR3 = ISUBC 
GO TO WO 

ENTRY DE8UGR 

IF ( I5UBC.LT®!) 
ALFARO = OBLANK 
NUMAR3 = -1 


CALLS MIGHT GET OUT OF RANGE 


:ALL AT RETURN 


GO TO 98 


29 

33 

31 

32 

33 

34 

35 
35 

37 

38 

39 

40 

41 

42 
*3 

44 

45 
45 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
53 

59 

60 
SI 
62 
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I SUBNl I SUBC ) = DBLANK 63 

ISUBC = I SUBC -1 64 

IF ( TRACE *GE.4) GO TO 400 65 

GO TO 99 65 

C 67 

ENTRY DEBUG21 ALFAR, NUMAR) 68 

DOUBLE PRECISION ALFAR 69 

NUMARG = NUMAR 70 

ALFAR3 = ALFAR 71 

20 IF { TRACE .LT.l) GO TO 99 72 

400 WRITE ( KOUN I T 1 405 ) ( I SUBN(I) , I =1, 4 ) , ALF ARG, NUMARG , 73 

« KCOUNT » SMCHR ,KCH,KFLD1, ICOMP , KFLD2 , LCOMP 74 

99 RETURN 75 

C 76 

ENTRY DEBUG3 (ALF AR, DNUMAR, ITYPE) 77 

DOUBLE PRECISION DNUMAR 79 

ENTRY DEBUG4ULFAR, DNUMAR, ITYPE ) 79 

DARG * DNUMAR 80 

NUMARS = NUMAR 81 

ALFAR3 = ALFAR 82 

IF (TRACE .LT.l) GO TO 99 83 

GO TO (30,40,50,60), ITYPE 84 

30 WRITE ( KOUNI T , 406 ) ( I SUBN( I ) , I =1 , 4 ) » ALF ARG, NUMARG , 85 

.KCOUNT, SMCHR, KCH, KFL Dl, I COMP, KFLD2, LCOMP 85 

GO TO 99 87 

40 WRITE { KOUNI T , 407 ) ( ISUBN(I) , 1=1, 4 ), ALFARG, NUMARS, 88 

. KCOUNT, SMCHR, KCH, KFL Dl, ICOMP , KFLD2, L COMP 89 

GO TO 99 90 

50 WRITE ( KOUNI T , 408 ) U SUBN( I ) , 1=1, 4 ) , ALF ARG , NUMARG , 91 

.KCOUNT, SMCHR, KCH, KFL D 1,1 COMP, KFLD2,L COMP 92 

GO TO 99 93 

60 WRITE ( KOUNI T , 409 ) ( I SUBNU) , 1 = 1, 4 ) , ALF ARG , NUMARG, 94 

. KCOUNT, SMCHR, KCH, KFL Dl, I COMP, KFLD2,LC0MP 95 

GO TO 99 95 

405 FORMAT ( 1H , 29X, 5 ( A6, 1 X ) , 124, 97 

• 1H ( , 1 3 , L2 , 1H ) , A6 , 2H ( * 1 3 , 1 2 , 1H ) , 2H (,I3,I2,1H)) 98 

406 FORMAT ( 1H , 29X , 5 ( A6, 1 X ) , E24. 8 , 99 

• 1H( ,I3,L2»1H)»A6,2H ( , 1 3 • 1 2 , 1H ) , 2H (, I3,I2,1H)) 100 

407 FORMAT ( 1H , 29X, 5 ( A6, IX ) , 11 X, 012 , IX , 101 

.lH(,I3 f L2t 1H),A6,2H ( , 13 , 1 2, 1H) ,2H (,I3,I2,1H)) 102 

408 FORMAT ( 1H , 29X , 5 ( A6, 1 X ) , 16X , A8 , 103 

• 1H( vI3,L2,lH)« A6, 2H < ,13,12, 1H),2H (,I3,I2,1H)) 104 

409 FORMAT ( 1H , 2 9X , 5 ( A6, 1 X ) , D24. 18 , 105 

• 1H( , 13 , L2 , 1H ) , A6, 2H ( , 1 3 , 1 2, 1H ) , 2H (, 13,12, 1H)) 106 

410 FORMAT ( 29 X,11HDEBUG TRAC E, 52X, 9H I— KCOUNT , 5X , 8HI--L I ST1/ 107 

. 68X , 9H D ARG 0R,15X,9HI I-SMCHR, 5X, 10HI I — ICOMP / 108 

•29X,18H SUBROUTINES CALLED, 11X,7HALF ARG, 7X, 1 1HNUMER I C ARG,9X, 109 

• 3HI I, IX, 5HKCH-I , 5X, 16HI I I--LIST2 / 110 

• 92X, 3H I I , 5X , 1H I , 5X, 18HI I I I--LC3MP) 111 

END 112 


SIBFTC STACKP DECK 

SUBROUTINE STACKP 1 

DIMENSION I FT ( 27 ) , IPTAB(21), ITAB(65) 2 

DIMENSION ANAME(15) ,IMAGE(80) , I M AGE 1 ( B 1 ) , I P ARAM ( 9 ) 3 

. ,KSTACK( 27) ,NAME( 15) ,RVALUE(2) ,STACK(27) 4 

C 5 

COMMON 6 
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•/ICOMNI/ VALUE 

, I COMP , IFNTYP 

, IMAGE1 

•IRADIX tlSUB 

7 


• ® KCH 

,KCNVRT , KCOUNT 

t KDIF 

9 KFLDl , KFLD2 

3 


. • LCOMP 

,LCNVRT , LEVEL 

, LFRT 

• LOOK 

9 


• v MCNVRT 

, MDIF ,MODALL 

, MSTOR 


ID 


• , NAME 

, MERROR , NONEW 

, NDTARG 


11 


• t SMCHR 

.TEST , ERMARK 



12 


• /I CNSTI/ BLANK 

.BLANKS .DOLLAR 

tEOS 


13 


* f I COMMA 

, I DOLAR , IFT 

t I PTAB 

9 I T AB 



. 9 KAM1Q 

, < BPC , KBPW 

® KCPCD 

• KERTYP 

15 


• f KZERO 

, VOPRNT , TAB1 



16 


./IPARAM/ ABORT 

, K IUNI T .KOUNIT 

, LI MALF 

9 LOCK , LOCX 

17 


• 9 NOL 1ST 

.NSTDI R .TRACE 



18 


• / I ST A< I / STACK 

.ISTDIM , KSTACK 

tLEVLIM 


19 

c 





20 


INTEGER BLANK 

.BLANKS , EOS 

, I DOLAR 

t TAB1 9 TRACE 

21 


DOUBLE PRECISION 

STACK, VALUE 



22 


LOGICAL ABORT, DOLLAR, ERMARK.L I MALF. LOCK, NOLI ST, 

NONEW, MOOALL, 

23 


. NSTDI R» SMCHR .TEST 



2<t 


EQUIVALENCE < STACK, I STACK) , l VALUE , KVALUE .RVALUE ),( NAME , ANAME ) 

25 


EQUIVALENCE ( ICOMNI , I SUB ) , ( I MAGE, IMAGED , I IP ARAM, ABORT ) 

26 


IF( TRACE .LT. 3) 

GD TO 99 



27 


LEVELK = LEVEL + 

3 



2B 


WRITE! KOUNIT, 85) LEVEL, VALUE, KVALUE, RVALUE, LOCX 


29 


WRITE! KOUNIT ,89) (STACK! I ), I = 1,LEVELX) 



30 


WRITE! KOUNIT, 86) (KSTACKl I) ,I=1,LEVELX) 



31 

89 

FORMAT C11D12.4) 




32 

86 

FORMAT (11112) 




33 

85 

FORMAT t 7H LEVEL = 

13, 7H VALJE=D25.17,8H 

KVALUE=I 3 

,3H • 0,2C IX, 012 ) • 

3* 


• 6H L0:X=I6> 




35 

99 

RETURN! 




36 


END 




37 
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APPENDIX B 

HUFF INPUT ROUTINE 

The first version of the Huff Input Routine was reported in reference 5. The Huff 
Input Routine provides more versatility in reading input data into the computer than the 
NAMELIST feature in FORTRAN. The Huff Input Routine has the ability to make simple 
arithmetic manipulations (such as conversion of units) during loading and to load alpha- 
numeric data. While not an indispensable feature, it has been found to be quite con- 
venient. The Huff Input Routine also allows for the automatic printout of data cards at 
execution time. 

The following section contains a general description of the Huff Input Routine and its 
usage. 


Usage 

The programmer transfers control to the INPUT routine with a standard FORTRAN 
IV call 


CALL INPUT (5, 6, 1,X,ITABLE) 

Argument 1 is the system input tape number (5 on the Lewis System). Argument 2 is the 
system output tape number (6 on the Lewis System) . Argument 3 is the identifying num - 
ber of a data group. This value is compared with an identification number occurring on 
an input card ($DATA card). If the values agree, the data are processed until another 
$DATA or end-of-data ($END) card is encountered. If the values do not agree, no data 
are processed and control is returned to the calling program. Argument 4 is the array 
X, which serves as a reference point for the storing of input data. Since all data are 
stored relative to X, the programer must provide fixed relations between the location of 
X and other locations to be loaded (e. g. , through the use of common blocks and/or 
equivalence statements). In this code, X is ’WORD, M the first name in the labeled 
common block f ’ALL. " Common blocks ALL, DESIGN, FRONT, SIDE, BACK, 

DUMMY, and SPOOL 2 are in all routines; hence, they are loaded sequentially so that 
the location of all variables is known. Argument 5 is the array IT ABLE, which contains 
the names of the variables used on the cards and their subscript location relative to X. 
Sufficient space must be provided in the calling program for storing the table of names. 
This is done by a DIMENSION statement. The dimension of ITABLE should be stored in 
IT ABLE (2). ITABLE (3) must initially be zero. 
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Types of Input Statements 


$DATA statement . - The $DATA statement identifies a group of data with an 
identification number. It must be the first statement on a card. For example, $DATA(1) 
or $D(1) on the first card of a data group causes the value 1 to be compared with argu- 
ment 3 in the calling sequence. If unequal, control is returned to the calling program. 

If equal, data are loaded until the next $DATA or $END statement is reached. 

$ TABLE statement . - The $TABLE statement makes a list of names needed for 
loading data. Consider for example that the real variable names VELOCITY, MASS, and 
RADIUS are to be assigned to memory locations X(l), X(2), and X(3), respectively. The 
card would be punched $ TABLE (. REAL. , 1 = VELOCITY, 2 = MASS, 3 = RADIUS). 
These variables will be treated as real in any subsequent loading of data. A limit of 
15 computer words is placed on the length of a name. Since .REAL, is what designates 
the mode of the name, a name may begin with any alphabetic letter. For example, the 
statement $TABLE (.INTEGER. , 20 = INDEX, SUBSCRIPT, I) will place these names in 
the table and any values subsequently loaded will be stored in X(20), X(21), and X(22), 
respectively, as integers. In a similar manner, $TABLE(. DOUBLE PRECISION. , 10 = 
RADIUS DOUBLE, . LOGICAL. , 12 = SWITCH 1, SWITCH 2) causes the name RADIUS 
DOUBLE to be stored in the table as a double -precision variable equivalent to X(10) and 
X(ll), and the logical variables SWITCH 1 and SWITCH 2 will be equivalent to X(12) and 
X(13). 

Note that $TABLE statements are loaded as Number = Name to avoid confusion with 
loading statements. 


Loading Statement 

The loading statement loads data by taking the name of a variable previously 
appearing in a $TABLE statement and setting it equal to a value which may be of several 
forms. 

Numeric values . - Standard FORTRAN language is used; for example, VELOCITY = 
3. 4, MASS = 32 (no decimal point is needed and MASS will have the REAL value 32), 
RADIUS = 4E21, and INDEX = 3. Data can be continued from one card to another; for 
example, SUBSCRIPT may appear at the end of one card and = 47 on the next card. 

Subscripts may be used. Since 3 = RADIUS, RADIUS(2) = 6, 10, 12, , 14 will put 
real numbers in X(4), X(5), X(6), and X(8) and leave X(7) unchanged because of the 
double comma. 

If new values are assigned to a variable before the next $D(1) card, the new value 
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will override the previous one. For example, RADIUS (2) = 8 will override the 
RADIUS (2) = 6 card. 

Internally addressed values . - An internally addressed value is one that refers to 
the contents of memory by name. RADIUS (7) = RADIUS(3), RADIUS (INDEX) causes 
RADIUS(7) to assume the value of RADIUS(3) and RADIUS(8) to also assume the value of 
RADIUS (3) since INDEX = 3. 

The statement RADIUS(7) = RADIUS(INDEX + 1) however is ILLEGAL. 

Arithmetic expressions . - Provisions have been made to allow arithmetic opera- 
tions to be performed on data at execution time. The operations + (addition), 

- (subtraction), * (multiplication), and /(division) and the functions, included among which 
are SQRT, EXP, SIN, COS, and PWR(X, Y) (= X**Y), may be used with name or num- 
bers (or any expression that has a value) to compute the value of an arithmetic ex- 
pression. Parentheses may be used to indicate the order of performing the operations. 
The computations are analyzed from left to right and any intermediate results are stored 
in up to 24 locations in the core (the stack) which is sufficient for fairly complex ex- 
pressions. All numeric operations are carried out in double -precision floating-point 
FORTRAN arithmetic. As an example, RADIUS(2) = RADIUS(2)*SQRT(RADIUS(2)) or 
RADIUS (2) = PWR(RADIUS(2), 1. 5) will set RADIUS (2) = 8 3 / 2 . 

Alphanumeric expressions . - Alphanumeric data may be entered by placing the 
variable name on the "REAL” list and then setting the variable equal to the data by first 
enclosing in parentheses the length of the word to be read in. As an example, 

Q = (A39) THIS IS AN EXAMPLE OF ALPHANUMERIC DATA 

The (A39) gives the length of the data including imbedded blanks. Of course, since on 
the IBM 7094 there are six characters per word, Q must internally be dimensioned to 
at least 7. 


Printing Input Cards 

Each input card processed will normally be written on the tape specified by the 
second argument of the calling sequence. An end-of-statement symbol read on the card 
will cause interpretation of the card to stop at that point and permit comments to be 
placed on the remainder of the card to be printed with the output. In order to avoid 
printing the card at all, the nonprint character is placed in the next column following 
the end-of-statement character. The developers of the routine selected the sign 4 for 
both characters. This is punched as a colon on an IBM Model 29 Keypunch and corres- 
ponds to a 2-8 punch. 
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If the character following the end-of-statement symbol is other than a nonprint 
character, it is inserted as the printer control character in the first position of the out- 
put format before the card is written on output tape. If no end-of-statement character 
occurs on the card, a blank printer control character is used. Comment cards having 
the end-of-statement character as the first nonblank character will be printed and may 
be placed anywhere except in a continued alphabetic field. 

In summary, the end-of-statement character has the effect of moving the end of the 
card forward to the column ahead of the end-of-statement character and the column 
following it is printer control. 

If the control parameter NOLIST is true, printing is suppressed for all cards. 
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APPENDIX C 


SYMBOLS 

General Symbols Internal to Program 

Variables in program are formed by combining these symbols. 

Station Numbers 

See figures 1 to 9 for each type of engine. 


Thermodynamic Properties 


AM Mach number 

FAR fuel -air ratio, f/a 

H enthalpy, Btu/lbm 

P total pressure, atm 

PS static pressure, atm 

S entropy, Btu/°R/lbm 

T total temperature, °R 

TS static temperature, °R 

V velocity, ft/sec 


Component Symbols 


A, AFT afterburner 

B burner 

C inner compressor 

COM combustor 

D fan duct 

F first or fan compressor 
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I 

intermediate (middle) compressor 

M 

core nozzle 

MAIN 

all but wing 

NOZ 

nozzle 

OB 

overboard 

T 

total 

THP 

inner (high pressure) turbine 

TIP 

middle (intermediate pressure) turbine 

TLP 

outer (low pressure) turbine 

WDUCT 

wing (third stream) duct 

WING,WNG 

wing (third stream) 


Engine Symbols 


BL bleed, Ibm/sec 

CN ratio of corrected speed to design corrected speed 

DHT turbine delta enthalpy, Btu/lbm 

DHTC turbine delta enthalpy (temperature corrected), (H in - H out )/T in , Btu/°R/lbm 

DP pressure drop, AP/P 

DT temperature change, °R 

ETA efficiency 

ETAR ram recovery, Pg/Pj 

HPEXT horsepower extracted 

PCBL fractional bleed 

PCN percent of design shaft speed 

PR pressure ratio 

TFF turbine flow function, lbm V°R/(psia)(sec) 

WA airflow, lbm/sec 

WF fuel flow, lbm/sec 
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WG gas flow, lbm/sec 

Z ratio of pressure ratios 


Miscellaneous Symbols 


A 

ALTP 

AM 

B PRINT 
BYPASS 
C 

CF 

CS 

CV 

DEL 

DS 

DUM 

FCOVFN 

FFOVFN 

FG 

FGM 

FGP 

FMOVFN 

FN 

FNOVFD 

FRD 

GU 

ITRYS 

LOOP 

LOOPER 


area, ft 
altitude, ft 

Mach number of aircraft 

bypass ratio (wing duct air/ core air) 

bypass ratio (fan duct air/air entering intermediate compressor) 

when following component symbol signifies "corrected" 

correction factor, when used following component symbol 

ambient speed of sound, ft/sec 

nozzle velocity coefficient 

delta degradation coefficient 

design value 

dummy value 

ratio of core thrust to net thrust 
ratio of fan thrust to net thrust 
gross thrust, lbf 
momentum thrust, lbf 
pressure thrust, lbf 

ratio of fan plus core thrust to net thrust 
net thrust, lbf 

ratio of net thrust to design -point net thrust 

ram drag, lbf 

initial or guessed values 

number of loops through engine before quitting 
variable counter 

number of loops through engine counter 
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SFC 

specific fuel consumption, lbm/lbm/hr 

TOLALL 

tolerance on convergence 

VA 

velocity of aircraft, ft/sec 

VJ 

jet velocity, ft/sec 


AFTFAN 

ALTP 

AM 

AM6 

AM23 

AM55 

A6 

A8 

A28 

A38 

CNHPDS 

CNIPDS 

CNLPDS 

COLDDAY 

CVDNOZ 

CVDWNG 

CVMNOZ 

DELFG 

DELFN 

DELSFC 

DPAFDS 

D POODS 

DPDUDS 


Input Symbols 

logical control for an aft -fan engine 
altitude, ft 

Mach number of aircraft 
design afterburner entrance Mach number 
design duct -burner entrance Mach number 
design low -pressure -turbine exit Mach number 

2 

area of afterburner entrance (calculated from AM6) , ft 

main nozzle throat area (can be changed at off -design), ft 

2 

fan duct nozzle throat area (see A8), ft 

2 

wing duct nozzle throat area (see A8), ft 

design corrected speed - inner turbine 

design corrected speed - middle turbine 

design corrected speed - outer turbine 

factor for correcting corrected airflows for cold day, T2 
-19° F 

nozzle thrust coefficient (DUCT) 
nozzle thrust coefficient (WING) 

nozzle thrust coefficient (CORE) 
gross -thrust delta degradation multiplier 

net -thrust delta degradation multiplier 
specific-fuel-consumption delta degradation multiplier 
afterburner design pressure drop, AP/P 
combustor design pressure drop, AP/P 
duct design pressure drop, AP/P 
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DFWGDS 

DTOODS 

DUMMYSPOOL 

ETAA 

ETAADS 

ETABDS 

ETACDS 

ETAD 

ETAFDS 

ETAIDS 

ETAR 

ETHPDS 

ETIPDS 

ETLPDS 

FIXFANTOMIDDLE 

FIXMIDD LETO COM P 

HOTDAY 

HPEXT 

I AFT BN 

IAMTP 

IDBURN 

ID CD 

IDES 

IDUMP 

IGASMX 


wing duct design pressure drop, AP/P 

combustor design temperature increase (automatically set to 
T4 - T3), °R 

logical control for spool wMch does not change temperature or 
pressure of air 

afterburner efficiency (not required) 

afterburner efficiency at design 

combustor efficiency at design 

inner -compressor adiabatic efficiency at design 

duct -burner combustor efficiency 

front (outer) compressor adiabatic efficiency at design 

intermediate (middle) compressor adiabatic efficiency at design 

inlet pressure recovery (ram recovery), P2/P1 

high-pressure- (inner) turbine design adiabatic efficiency 

intermediate -pressure- (middle) turbine design adiabatic 
efficiency 

low-pressure- (outer) turbine design adiabatic efficiency 

logical control for boosted fan 

logical control for supercharged compressor 

factor for correcting corrected airflows to hot day, T2 = 44° F 

horsepower extraction 

index on afterburning desired 

index on ram or inlet operation desired 

index on duct burning desired 

duct nozzle convergent -divergent when 3D CD = 1 (design or off- 
design) 

index for design point; must be set equal to 1 to design engine; 
zeroed automatically 

index for dumping of error matrix 

index for mixed-flow or non-mixed-flow turbofans 
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IMCD 

ITRYS 

MODE 

NOZFLT 

PCBLC 

PCBLDU 

PCBLF 

PCBLHP 

PCBLIDS 

PCBLIP 

PCBLLP 

PCBLOB 

PCNC 

PCNCDS 

PCNF 

PCNFDS 

PCNI 

PCNIDS 

POLARDAY 
PR CDS 
PRFDS 


main nozzle convergent -divergent when IMCD = 1 (design or 
oft -design) 

index for maximum number of iterations 
independent variable designator for engine operation 
index for floating main or duct nozzle 

ratio of compressor bleed to turbines to compressor airflow 

ratio of compressor bleed leaked into fan duct to total com- 
pressor bleed flow 

ratio of bleed from outer compressor to fan airflow dumped 
overboard (i. e. , leakage) 

fraction of PCBLC used for high-pressure (inner) turbine 
(cooling) 

ratio of design value of air into wing to air into core; zero for 
two-stream engine 

fraction of PCBLC used for intermediate-pressure turbine 
(cooling) 

fraction of PCBLC used for low-pressure (outer) turbine 
(cooling) 

inner -compressor bleed compressor airflow (overboard for 
customer use) 

inner -compressor shaft speed as a percent of design shaft 
speed 

design inner -compressor shaft speed 

outer-compressor shaft speed as a percent of design 

design outer-compressor shaft speed as a percent of design 
shaft speed 

intermediate-compressor shaft speed as a percent of design 

design intermediate -compressor shaft speed as a percent of 
design shaft speed 

factor for correcting corrected airflow to polar day, T2= -75° F 
design inner-compressor pressure ratio 
design outer-compressor pressure ratio 
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PS55 

P2 

TFHPDS 

TFIPDS 

TFLPDS 

TOLALL 

TROPICALDAY 

T2 

T24 

T4 

T4DS 

T7 

T7DS 

WAFCDS 

WAICDS 

WFA 

WFB 

WFBDS 

ZCDS, ZFDS, ZIDS 


static pressure at low -pressure -turbine exit 

compressor -face total pressure (for nonstandard days only), atm 

design inner -turbine flow function 

design intermediate -turbine flow function 

design outer-turbine flow function 

tolerance on error matrix 

factor for correcting corrected airflows for tropical day, 

T2 = 31° F 

compressor -face total temperature (for nonstandard days only), 
T1 + T2 

duct -burner exit temperature, °R 

combustor exit temperature, °R 

design combustor exit temperature, °R 

afterburner exit temperature, °R 

design afterburner exit temperature, °R 

design outer-compressor corrected airflow, lbm/sec 

design intermediate -compressor corrected airflow, lbm/sec 

fuel flow rate to afterburner (IAFTBN = 2 only), lbm/sec 

fuel flow rate to main burner (MODE = 2 only), lbm/sec 

design fuel flow rate to main burner (MODE = 2 only), lbm/sec 

design ratio of inner compressor, fan compressor, and middle 
compressor pressure ratios, respectively; equals pressure 
ratio at design point on design speed line minus value of pres- 
sure ratio at lowest point on speed line divided by high (surge) 
value minus low value of pressure ratio on the design speed line 


Output Symbol List 1 

A area, ft^ 


*Some symbols, such as T4, are followed by station numbers; see appropriate figure for 
each engine in order to determine station numbers. 
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ALTP 


altitude, ft 
AM Mach number 

BLC bleed flow out of compressor, lbm/sec 

BLF bleed flow out of fan (dumped overboard), lbm/sec 

BLHP bleed flow into high-pressure turbine, lbm/sec 

BLI airflow into third stream, lbm/sec 

BLIP bleed flow into intermediate -pressure turbine, lbm/sec 

B PRINT ratio of airflow into wing duct to airflow into core 

BYPASS ratio of airflow into fan duct to airflow into intermediate compressor 

CNC corrected shaft speed - inner compressor 

CNF corrected shaft speed - fan 

CNHP corrected shaft speed - high-pressure turbine, PCNC/\/T~ 

CNHPCF corrected speed - high -pres sure -turbine correction factor 
CNI corrected shaft speed - intermediate compressor 

CNIP corrected shaft speed - intermediate -pres sure turbine, PCNI/ ^/T - n 

CNIPCF corrected speed - intermediate -pressure -turbine correction factor 
CNLP corrected speed - low-pressure turbine, PCNF/\/T~ 

CNLPCF corrected speed - low -pressure -turbine correction factor 

CVDNOZ velocity coefficient of fan nozzle 

CVDWNG velocity coefficient of wing nozzle 

CVMNOZ velocity coefficient of core nozzle 

DHHPCF high -pressure -turbine delta enthalpy correction factor 

DHIPCF intermediate -pressure -turbine delta enthalpy correction factor 

DHLPCF low -pressure -turbine delta enthalpy correction factor 

DHTC work done by high-pressure turbine, Btu/lbm 

DHTCHP enthalpy change temperature corrected - high-pressure turbine, Btu/°R/ 
atm/lbm 

DHTCIP enthalpy change temperature corrected - intermediate -pressure turbine, 
Btu/°R/atm/lbm 
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DHTCLP 

DHTF 

DHTI 

DPCOM 

DPDUC 

DPWING 

DTOOCF 

ETAB 

ETABCF 

ETAC 

ETACCF 

ETAD 

ETAF 

ETAFCF 

ETAI 

ETAICF 

ETATHP 

ETATIP 

ETATLP 

ETHPCF 

ETIPCF 

ETLPCF 

FAR 

FCOVFN 

FFOVFN 

FG 

FGM 

FGMWNG 

FGP 


enthalpy change temperature corrected - low-pressure turbine, Btu/°R/ 
atm/lbm 

work done by low-pressure turbine, Btu/lbm 

work done by intermediate -pressure turbine, Btu/lbm 

(A P/P) com bustor 
(AP/P) fan duct 

(AP/P) wing d uc t 

temperature -rise -across -combustor correction factor 

combustor efficiency 

combustor efficiency correction factor 

inner-compressor adiabatic efficiency 

inner -compressor efficiency correction factor 

duct -burner efficiency 

fan adiabatic efficiency 

fan efficiency correction factor 

intermediate -compressor adiabatic efficiency 

intermediate -compressor efficiency correction factor 

high -pressure -turbine adiabatic efficiency 

intermediate -pressure -turbine adiabatic efficiency 

low -pressure -turbine adiabatic efficiency 

high-pressure -turbine efficiency correction factor 

intermediate-pressure-turbine efficiency correction factor 

low -pressure -turbine efficiency correction factor 

fuel-air ratio, f/a 

ratio of core thrust to net thrust 

ratio of fan thrust to net thrust 

gross thrust, lbf 

momentum thrust of all but wing, lbf 
momentum thrust of wing, lbf 
pressure thrust of all but wing, lbf 
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FGPWNG 

FMOVFN 

FN 

FNMAIN 

FNOVFD 

FNWING 

FRD 

FWOVFN 

HPEXT 

P 

PCBLC 

PCBLDU 

PCBLF 

PCBLHP 

PCBLI 

PCBLIP 

PCBLLP 

PCNC 

PCNF 

PCNI 

PRC 

PRCCF 

PRF 

PRFCF 

PRI 

PRICF 

PS 

SFC 

T 

T2DS 


pressure thrust of wing, lbf 

ratio fan thrust plus core thrust to net thrust 

net thrust, lbf 

net thrust of all but wing, lbf 

ratio of net thrust to design -point net thrust 

net thrust of wing, lbf 

ram drag, lbf 

ratio of net wing thrust to net thrust 
horsepower extracted, hp 
pressure, atm 

fraction of compressor exit air bled for cooling or lost to cycle 
fraction of bleed air out of compressor which leaks into fan duct 
fraction of fan exit airflow lost overboard 

fraction of compressor bleed air put into high-pressure turbine 
fraction of intermediate -compressor air which goes into third stream 
fraction of compressor bleed air put into intermediate -pressure turbine 
fraction of compressor bleed air put into low-pressure turbine 
inner -compressor shaft speed as a percent of design 
fan-compressor shaft speed as a percent of design 
intermediate-compressor shaft speed as a percent of design 
pressure ratio of inner compressor 
pressure-ratio-of-inner-compressor correction factor 
pressure ratio of fan 
pressure-ratio-of-fan correction factor 
pressure ratio of intermediate compressor 
pressure-ratio-of-intermediate-compressor correction factor 
static pressure, atm 
specific fuel consumption, lbm/lbf/hr 
temperature, °R 

design exit temperature of fan, °R 
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T21DS 

T22DS 

TFFHP 

TFFIP 

TFFLP 

TFHPCF 

TFIPCF 

TFLPCF 

V 

VA 

VJD 

VJM 

VJW 

WA 

WA3CDS 

WAC 

WACC 

WACCF 

WA Cl 

WAD 

WAF 

WAFC 

WAFCF 

WAI 

WAICF 

WFB 

WFD 

WFT 

WG 

WGT 


design exit temperature of inner compressor, °R 

design exit temperature of intermediate compressor, °R 

high-pressure-turbine flow function, (lbm)(V°it)(im ^)/(sec)(lbf) 

intermediate-pressure-turbine flow function, (lbm)(\/°R)(in. ^)/(sec)(lbf) 

low -pressure -turbine flow function, (lbm) (V°R) (in. / (sec) (lbf) 

high -pressure -turbine flow function correction factor 

intermediate-pressure-turbine flow function correction factor 

low -pressure -turbine flow function correction factor 

velocity, ft/sec 

velocity of aircraft, ft/sec 

fan duct exhaust velocity, ft/sec 

core exhaust velocity, ft/sec 

wing duct exhaust velocity, ft/sec 

airflow, lbm/sec 

corrected airflow in combustor at design, lbm/sec 

inner -compressor airflow, lbm/sec 

inner -compressor corrected airflow, lbm/sec 

inner-compressor corrected airflow correction factor 

intermediate -compressor corrected airflow, lbm/sec 

fan duct airflow, lbm/sec 

fan airflow, lbm/sec 

fan corrected airflow, lbm/sec 

fan corrected airflow correction factor 

intermediate-compressor airflow, lbm/sec 

intermediate -compressor corrected airflow correction factor 

fuel flow rate to combustor, lbm/sec 

fuel flow rate to duct burner, lbm/sec 

total fuel flow rate, lbm/sec 

gas flow rate, lbm/sec 

total gas flow rate, lbm/sec 
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zc 

ratio of 

ZF 

ratio of 

ZI 

ratio of 


inner -compressor pressure ratios 
fan pressure ratios 

intermediate -compressor pressure ratios 
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TABLE I. - VARIABLES AND ERRORS 



Engine designation 


a 

b 

c 

d 

e 

f 

g 

h 

i 



Number of spools 


3 

2 

2 

3 

2 

3 

2 

2 

3 


Number of streams 


3 

3 

3 

2 

2 

3 

3 

2 

2 


Turbofan 

Boosted 

fan 

Supercharged 

compressor 

Turbofan 

Aft fan 

Supercharged 

compressor 

Aft fan 

Variable 1 

ZF 

ZF 

ZF 

ZF 

ZF 

ZF 

ZF 

ZF 

ZF 

Variable 2 

PCNF 

PCNF 

PCNF 

PCNF 

PCNF 

PCNF 

PCNF 

PCNF 

PCNF 

Variable 3 

ZC 

ZC 

ZC 

ZC 

ZC 

ZC 

ZC 

ZC 

ZC 

Variable 4 

PCNC 

PCNC 

PCNI 

PCNC 

PCNC 

PCNC 

PCNI 

PCNC 

PCNC 

Variable 5 

TFFHP 

TFFHP 

TFFIP 

TFFHP 

TFFHP 

TFFHP 

TFFIP 

TFFHP 

TFFHP 

Variable 6 
Variable 7 

TFFLP 

ZI 

TFFLP 

ZI 

TFFLP 

ZI 

TFFLP 

ZI 

TFFLP 

TFFLP 

ZI 

TFFLP 

ZI 

TFFLP 

TFFLP 

ZI 



Variable 8 

PCNI 



PCNI 

PCNI 


PCNI 






Variable 9 
Error 1 

TFFIP 

TFHCAL - TFFHP 

TFFIP 

(a) 

TFFIP 

(a) 

TFFIP 

(a) 

(a) 

T FI CAL - TFHP 

(a) 

(b) 

(a) 

TFHCAL 

T FI CAL 

Error 2 

DHTCC - DHTCHP 

(a) 

DHTIC - DHTCIP 

(a) 

(a) 

(a) 

(b) 

(a) 

(a) 

DHTCC 

DHTIC 

Error 3 

TFLCAL - TFFLP 

(a) 

(a) 

(a) 

(a) 

(a) 

(a) 

(a) 

(a) 

TFLCAL 

Error 4 

DHTCF - DHTCLP 

(a) 

(a) 

(a) 

(a) 

(a) 

(a) 

(a) 

(a) 

DHTCF 

Error 5 

P25R - P25 
P25R 

(a) 

(a) 

(a) 

(a) 

(a) 

(a) 

(a) 

(a) 

Error 6 

P7R - P7 
P7R 

(a) 

(a) 

(a) 

(a) 

(a) 

(a) 

(a) 

(a) 

Error 7 

P38R - P38 

(a) 

(a) 

WAC - WAI 


(a) 

(a) 


(c) 

P38R 

WAC 



Error 8 

T FI CAL - TFFIP 



(a) 


(a) 



(a) 

T FI CAL 






Error 9 

DHTIC - DHTCIP 



(a) 


(a) 



(a) 

DHTIC 






Matrix size 

9x9 

7x7 

7x7 

9x9 

6x6 

9x9 

7x7 

6x6 

9x9 


a Same as error for engine a. 
b Same as error for engine c. 
c Same as error for engine d. 
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TABLE n. - INPUTS REQUIRED TOR BASIC CYCLES 


Variable 

Units or type 

Definition 

Engine designation | 

a 

b 

c 

d 

e 

f 

g 

h 

i 

Number of spools | 

3 

2 

2 

3 

2 

3 

2 

2 

3 

Number of streams 

3 

3 

3 

2 

2 

3 

3 

2 

2 

Turbo - 
fan 

Boosted 

fan 

Super- 

charged 

com- 

pressor 

Turbbfan 

Aft fan 

Super- 

charged 

com- 

pressor 

Aft fan 

PRFDS 


Fan pressure ratio 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

WAFCDS 

lb/sec 

Fan corrected airflow 



















ETAFDS 


Fan efficiency 



















ZFDS 


Design Z of fan 



















PCNFDS 


Corrected speed of fan 



















PRIDS 


Intermediate pressure ratio 









No 





No 



WAICDS 

lb/sec 

Intermediate corrected airflow 









Yes 





Yes 



ETAEDS 


Intermediate efficiency 









No 





No 



ZIDS 


Design Z of intermediate compressor 









No 





No 



PCNIDS 


Corrected speed of intermediate 



No 





No 





No 





compressor 



















PR CDS 


Compressor pressure ratio 



Yes 





Yes 





Yes 



PCBLIDS 


Fraction of air into third duct 







Zero 

Zero 





Zero 

Zero 

ETACDS 


Compressor efficiency 







Yes 

Yes 





Yes 

Yes 

ZCDS 


Design Z of compressor 



















PCNCDS 


Corrected speed of compressor 





No 







No 





ETABDS 


Combustor efficiency 





Yes 







Yes 





DPCODS 


Combustor pressure drop, AP/P 





Yes 







Yes 





T4DS 

°R 

Turbine inlet temperature 





Yes 







Yes 





TFHPDS 

IlV°R 

High-pressure-turbine flow function 





No 







No 






(sec)(psia) 




















CNHPDS 


High-pressure-turbine corrected 





No 







No 







speed 



















ETHPDS 

lb\/°R 

High -pressure -turbine efficiency 





No 







No 





T FTPDS 

Intermediate-turbine work function 



No 

Yes 



No 



Yes 

No 




(sec)(psia) 




















CNIPDS 


Intermediate-pressure-turbine 



No 





No 





No 





corrected speed 



















ETIPDS 


Interm ediate -pressure -turbine 



No 





No 





No 





efficiency 



















TFLPDS 

lb\/°R 

Low -pressure-turbine flow function 



Yes 





Yes 





Yes 




(see)(psia) 




















CNLPDS 


Intermediate -pressure -turbine 





















corrected speed 



















ETLPDS 


Intermediate-pressure-turbine 





















efficiency 



















DPDUDS 


Fan pressure drop, AP/P 



















DPWGDS 


Wing duct pressure drop, AP/P 







No 

No 





No 

No 

DPAFDS 


Afterburner pressure drop, AP/P 

\ 






Yes 

Yes 

1 




Yes 

Yes 

FIX FANTOMEDD LE 

Logical 

Boosted fans 

•F. 

.T. 

. F. 

. F. 

. F. 

• F - 

•F. 

. F. 

. F. 

FIXMIDD LETO COM P 

Logical 

Supercharged compressors 



. F. 

.T. 



!•» 


. I 




. F. 

. F. 

DUMMYSPOOL 

Logical 

No intermediate spool 



. F, 

■i 




.T. 

. I 


■ F. 

.1 


. F. 

AFT FAN 

Logical 

Aft -fan engines 



. F. 

. F. 





.1 


.1 


.1 



1_ 
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Figure L -Three-spool, three-stream turbofan engine (type a). 
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Figure 2. - Two-spool, three-stream boosted-fan engine (type b). 
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Figure 3. -Two-spool, three-stream, supercharged-compressor engine (type c). 



Figure 4 - Three-spool, two-stream engine (type d). 
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Figure 8. - Two-spool, two-stream aft-fan engine (type h). 
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Figure 9. -Three-spool, two-stream aft-fan engine (type i). 



Figure 10. - Flow chart for GENENG II computer program. 
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Figure 13. - Example of specific turbine map. 
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(a) Generalized afterburner combustion efficiency as function of 
fuei-air ratio. 



Ratio of afterburner inlet Mach number to design 
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(b) Efficiency correction factor against afterburner inlet 
Mach number. 
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(c) Efficiency correction factor against afterburner inlet 
total pressure. 


Figure 14. - Example of a generalized afterburner combustion efficiency performance map. 
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